Looking at the error report it seems to me that there is noting wrong with the syntax of the command but it can’t be executed.

I have no idea why as there is no printer involved in this, this is an Excel command that is “printed” to the pdf file.

Would you care to try another “PageSetup” command and tell me if this generate the same error?

With ActiveSheet.PageSetup
	.Zoom = False
	.FitToPagesWide = 1
	.FitToPagesTall = 1
End With
This is the command for setting the print area to 1 page and should generate a pdf file of 1 page.

Alf