Printing Extra Pages to PDF

  • Thread starter Thread starter Dave Seeger
  • Start date Start date
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?
 
Back
Top