Help with additional coding needed to only print 1 page of report.

[SGrohola]

I have the following code set up to open a report in print preview. I want to add coding to it to only print the first page though. Can anyone help?

Private Sub cmdvwandprnt_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 = "[ID] = " & Me.ID
        DoCmd.OpenReport "rpt_Owner Operators", acViewPreview, , strWhere
    End If
End Sub

[rpeare]

try something like

DoCmd.OpenReport "rpt_Owner Operators", acViewPreview
DoCmd.PrintOut acPages, 1, 1
DoCmd.Close acReport, "rpt_Owner Operators, acSaveNo

[SGrohola]

It's working where, it's only printing one page, but is there any way to change it, so that it prints to .pdf file, as the preview doesn't even show to be able to change it.

Thank you!

[rpeare]

it should be, try something like this:

http://www.tek-tips.com/viewthread.cfm?qid=1711684

[Bulzie]

Found this online, similar to what rpeare provided, maybe you can use some of it. I tried using your report name.

Dim myPath As String
Dim strReportName As String

DoCmd.OpenReport "rpt_Owner Operators", acViewPreview
DoCmd.PrintOut acPages, 1, 1 '(Added this from rpeare post)

myPath = "C:\Documents and Settings"
strReportName = "rpt_Owner Operators.pdf"

DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath + strReportName, True
DoCmd.Close acReport, "rpt_Owner Operators"