Een wachtlus voor document printen.

[DutchOirs]

Goedemorgen.
2e poging om iets in te brengen. Waar is de goede oude tijd?
Zit met een probleempje om een wachtlus voor een print te maken.
Heb zoiets al met een pdfJob. Zoiets.

  Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")     ' objectverwijzing naar pdfjob
  Do Until pdfjob.cCountOfPrintjobs = 1                 ' Wait until the print job has entered the print queue
    DoEvents
  Loop
  pdfjob.cPrinterStop = False
  Do Until pdfjob.cCountOfPrintjobs = 0                 ' Wait until PDF creator is finished then release the objects
    DoEvents
  Loop
  objDoc.PrintOut                                       ' Print the document to PDF

Dus dacht slim te zijn en "Set pdfjob = CreateObject("PDFCreator.clsPDFCreator") ' objectverwijzing naar pdfjob" om te bouwen naar:
"Set pdfjob = CreateObject("Canon iP7200 series (Kopie 2).objDoc.PrintOut") ' objectverwijzing naar "docjob
Maar helaas werkt dus niet.
Iemand een idee hierover?

Bij voorbaat thanks
Dutch

 

[snb]

In office maak je vanuit iedere applicatie een PDF, tenzij je Officeversie van vóór 2007 is.

 

[DutchOirs]

klopt snb excel 2003