Più o meno così:
Manca la gestione di possibili errori, dello stato della stampante, ed inoltre '.cSaveOptions()' sovrascrive le impostazioni della stampante...codice:Dim PDFc As New PDFCreator.clsPDFCreator Dim PDFc_opt As New PDFCreator.clsPDFCreatorOptions 'path del file da convertire Dim file_conv As String 'formato di destinazione, da 1 a 15, 'PDF/A-1b corrisponde a 9 Dim formato As Integer 'nome del file di destinazione 'NB l' estensione viene ignorata Dim nome_file As String 'directory di destinazione/salvataggio Dim path As String With PDFc_opt .UseAutosave = 1 .UseAutosaveDirectory = 1 .AutosaveDirectory = path .AutosaveFilename = nome_file .AutosaveFormat = formato End With With PDFc .cOptions = PDFc_opt .cSaveOptions() .cDefaultPrinter = "PDFCreator" .cPrintFile(file_conv) End With PDFc.cClose()
Credo che tra Funzioni, Proprietà, ecc. ci sia tutto per fare le cose per bene...bisogna capire quali e come usarle...
Ciao!

					
					
					
						
  Rispondi quotando