Taking print out of recent record on the form 2

[manf01]

Hi programmers,

i have tried to use the provided code to get the print of the recent record on the form but i am just getting the copies of all records,

Can anyone suggest me how to get print of recent record.

I will be thankful to you


Dim stDocName As String
Dim strWhere As String

DoCmd.OpenReport stDocName, acPreview, strWhere
strWhere = "[InvoiceID]= & Me![InvoiceID]"
DoCmd.PrintOut "Invoice", acViewPreview

( Inovice is my Report name and InvoiceId is first field of the form )


Thanks a lot.

 

[ZmrAbdulla]

Dim stDocName As String
Dim strWhere As String
strWhere = "[InvoiceID]= & Me![InvoiceID]"
DoCmd.OpenReport stDocName, [b][COLOR=blue]acViewNormal[/color][/b], strWhere

I wonder why are you not getting an error on this line?!

[b][COLOR=red]DoCmd.PrintOut "Invoice", acViewPreview[/color][/b]

Zameer Abdulla
Visit Me (New Look & style)

 

[manf01]

Thanks a lot Zameer,

Its working properly

 

[manf01]

In taking a print out of recent record on the Form i have used a bit different way but i am getting an error in it.


DoCmd.OpenReport "InvoiceReport", asViewPreview
"[InvoiceID]=Forms!InvoiceForm!InvoiceID"

Anyone can correct me ?

Thanks a lot.

 

[Remou]

Hi
Has this line got a few typos?
DoCmd.OpenReport "InvoiceReport", [highlight]ac[/highlight]ViewPreview[highlight], , _[/highlight]
"[InvoiceID]=Forms!InvoiceForm!InvoiceID"

 

[ZmrAbdulla]

You can change the earlier code a little to open the report to preview not to print directly.

Dim stDocName As String
Dim strWhere As String
strWhere = "[InvoiceID]= & Forms!InvoiceForm!InvoiceID"
DoCmd.OpenReport stDocName, [b][COLOR=blue]acViewPreview[/color][/b], strWhere

Zameer Abdulla
Visit Me (New Look & style)

 

[manf01]

Thanks Remou

i have corrected it but still in vain
Can you please have a look on the code ?

Private Sub Print_Click()
On Error GoTo Err_Print_Click


DoCmd.OpenReport "InvoiceReport", acViewPreview, , _
"[InvoiceID]=Forms!InvoiceForm!InvoiceID"

Exit_Print_Click:
Exit Sub

Err_Print_Click:
MsgBox Err.Description
Resume Exit_Print_Click
End Sub


Thanks,

 

[manf01]

strDocName = "InvoiceReport"
DoCmd.OpenReport strDocName,acViewNormal, "Invoices Filter"

I have used the above function, now i am getting the required print out of recent record

 

[Remou]

Hi
In general you are best sticking fairly exactly to ZmrAbdulla's suggestions, so, copying Zameer's post:

Dim stDocName As String
Dim strWhere As String
strWhere = "[InvoiceID]= & Forms!InvoiceForm!InvoiceID"
strDocName= "InvoiceReport"
DoCmd.OpenReport stDocName, acViewPreview, strWhere

A few comments.
This line:
DoCmd.OpenReport stDocName, acViewPreview, strWhere
Opens with a filter.
This line:
DoCmd.OpenReport stDocName, acViewPreview, , strWhere
Opens with a where clause.

Are you 100% sure of the report name?

 

[ZmrAbdulla]

To highlight the post of Remou
This line:

DoCmd.OpenReport stDocName, acViewPreview[b][COLOR=red],[/color][/b] strWhere

Opens with a filter.
This line:

DoCmd.OpenReport stDocName, acViewPreview[b][COLOR=red], , [/color][/b]strWhere

Opens with a where clause.



Zameer Abdulla
Visit Me (New Look & style)