Excel naar PDF

[KJH]

Weet iemand hoe je in VB Excel-bestanden op kan slaan als PDF?
Ik gebruik CutePDF printer. Ik kan alleen nergens code vinden, hoe je bijvoorbeeld alle Excel-bestanden in een directory automatisch kan printen naar PDF, waarbij een Excel-bestand met meerdere sheets resulteert in een multipage PDF met voor elke sheet een nieuwe pagina. Als ik vanuit Excel CutePDF Printer gebruik, dan kan dit. Ik kan alleen niet vinden hoe je dit in VB programmeert. Ik hoop dat iemand me verder kan helpen.

Of als iemand een andere manier weet, bijvoorbeeld met Distiller, dan ben ik daar ook blij mee. Het gaat er dus wel om dat Excel zelf niet geopend is, maar via code moeten bestanden opgepakt worden die bijvoorbeeld bij elkaar in een directory staan.

 

[QueenMan]

Ik heb het laatst zelf ook gedaan, maar in gebruik PDFCreator.

De code hiervoor is als volgtvoeg wel een reference toe naar PDFCreator)

   Set WRK_Pdf = New PDFCreator.clsPDFCreator
   With WRK_Pdf
      .cStart "/NoProcessingAtStartup"
      .cOption("UseAutosave") = 1
      .cOption("UseAutosaveDirectory") = 1
      .cOption("AutosaveDirectory") = wrk_autosavedirectory
      .cOption("AutosaveFilename") = wrk_autosavefilename 
      .cOption("AutosaveFormat") = 0
      .cDefaultPrinter = "PDFCreator"
      .cClearCache
      .cVisible = True
       WRK_Excel.Application.ActivePrinter = "PDFCreator"
       WRK_Excel.Application.ActiveDocument.PrintOut copies:=1
       WRK_Excel.Application.ActiveSheets.Close
      Do Until WRK_Pdf.cCountOfPrintjobs = 1
         DoEvents
      Loop
      .cPrinterStop = False
      Do Until WRK_Pdf.cCountOfPrintjobs = 0
         DoEvents
      Loop
      .cClose
   End With
   Set WRK_Pdf = Nothing