Printing Extra Pages to PDF

D

Dave Seeger

Im using the following code to print a FORM to PDF

Private Sub PrtPDF()
Dim strAppendix As String
Dim X As Printer
For Each X In Printers
If (X.DeviceName = "Adobe PDF") Then

' Set printer as system default.
Set Printer = X
' Stop looking for a printer.
Exit For
End If
Next

Me.Text71.SetFocus

Me.Caption = Text71.Text

DoCmd.PrintOut acSelection

I prints the PDF fine, but with 3 extra pages. I have checked the Height and
Width of the form, and all is fine - 8 x 11

What am I missing?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBA Export to PDF 0
Upgraded from Win 7 to Win 10. Publisher printing black. 1
Loop through pages and insert header image 0
Printing to pdf 3
Printing Excel Workbook to PDF 1
Open & print selected pages of PDF document 6
Print to PDF in VBA Code 11
border added around Notes Pages printed to PDF 0

Top