Single Invoice Printing

[gebmiller1984]

Hi I have a db set up. I enter details for an invoice. Select Print Invoice and It will bring up a Report document with all details on.

What It is doing now is when I select a customer from a combo box auto populate data. It prints all Invoices for that person. It originally
did only print the current record. Is there any way in adding a code to the following so it only prints the current record on screen.

Private Sub cmdPrintRecord_Click()
Dim strReportName As String
Dim strCriteria As String

strReportName = "rptPrintRecord"
strCriteria = "[CustomerName]='" & Me![CustomerName] & "'"
If Me.Dirty Then Me.Dirty = False
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria



End Sub


Or can I add a tick box and a query so it only prints the specific record.What ever is easy would be the best

Much appreciated

[June7]

Use record ID instead of customer name as criteria.

Why did it used to print only current record? What was changed?

[gebmiller1984]

It wont allow me to change to CustomerID, It goes wrong. Is there a way of adding a code so it only prints the current record. It comes up with the following error when changing to CustomerID

Data Type Mismatch in criteria expression.

When I go into the coding the bottom line is highlighted in yellow

[June7]

Using CustomerID will still print all invoices for that customer. If you want only one invoice then need that ID.

Assuming ID fields are number type, remove apostrophe delimiters.

"InvoiceID = " & Me!InvoiceID

[gebmiller1984]

Done, thank you. It still prints out 4 pages though. one with data on two blank and a footer. Is there a way of setting these to only print one page.

[June7]

Would have to know more about the report design. Maybe you just need to resize stuff.