VB code to print only page 1

[kableland]

Good day,

I could sure use your help with the VB code to print only one page, the details are below:

Report name: SHEMA Form

Presently I have a button that uses the following code, but the report prints a duplicate page for each of the line items associated with the "Key" field, which is "PRNumTemp".

Private Sub Command12_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "PRNumTemp = '" & Me.PRNumTemp & "'"
DoCmd.OpenReport "SHEMA Form", acViewReport, , strWhere
End If
End Sub

So if you have a good suggestion, I'm all ears, but at least provide the code for printing only one page, please and thank you.

kableland

[alansidman]

Here is a line of code I have used to print just one page of a report.

DoCmd.OpenReport stDocName, acViewPreview, , "[ID]=Forms!frmClients!ID"

ID is the control name in the report and references the control in my form that I want to print.

I'm not sure what is causing your db to print twice.

Alan

[June7]

The duplication is probably because of the RecordSource. There are multiple tables? Is there one or more join clauses in the SQL statement? Is this query including more than one 'many' table joined to the 'one' table?

Alan, might be a typo in your code sample as it has the variable within quote marks instead of concatenating. It does look like OP is trying to limit report to a single record by using unique value criteria.