Printing Extra Pages to PDF


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


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