print method of printer object

Dette program kigger efter pdf filer i et katalog. Hvis der findes en pdf fil findes størrelsen (A3 el. A4) i strFormat. I nogle andre funktioner findes den ønskede printer i strPrinterName. Jeg ønsker så at skifte papir størrelse afhængig af strFormat og strPrinterName. Programmet kører på en server og der er derfor ingen dialog.

Ex.
For i = 0 To Printers.Count - 1
If cSetPrinter.SetPrinterAsDefault        (strPrinterName) Then
\' This sets the printer as default
If strFormat = \"A4\" Or strFormat = \"a4\" Then
  Printer.PaperSize = 9                   
Else
  Printer.PaperSize = 8
End If
End if
Next
.......
\' Print out the PDF File
r = AcroExchAVDoc.printPages(0, (nMaxPage - 1), 1, 0, 1)

Hvis jeg i printer opsætningen sætter en printer papersize = 2 (Letter Small) - sætter
printeren på pause - kører mit program -  vil papersize=2 hvis jeg kigger på egenskaberne på printet i printerkøen.

Hjælp