Imprimir PDFCreator automaticamente
Publicado por Ivanxu94 (5 intervenciones) el 23/01/2017 11:16:37
Buenos días, me gustaría saber como imprimir con el programa pdfCreator directamente sin que me saliera el asistente y guardará el archivo con el nombre y la ubicación especificado. Ahora no me da error pero tampoco me lo hace. Si alguien tiene alguna idea se lo agradeceré infinitamente, un saludo!
Adjunto el código por si quereis verlo
La impresora por defecto es el PDFCreator pero de todas formas también agradecería si lo supierais como decirle por que impresora quiero que imprima! MUCHISIMAS GRACIAS de antemano! ^^
Adjunto el código por si quereis verlo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
exApp.ActiveSheet.PrintOut(Copies:=1, Preview:=False, Collate:=True)
exApp.ActiveWorkbook.SaveAs("\\Desktop\MiCarpeta\" & Clientee & "\HojaCostes.pdf")
Dim PDFCreator1 As PDFCreator.clsPDFCreatorDim opt As clsPDFCreatorOptions
PDFCreator1 = New clsPDFCreatorPDFCreator1.cVisible = False
opt = New clsPDFCreatorOptionsWith opt
.UseAutosave = 1
.UseAutosaveDirectory = 1
.AutosaveDirectory = ("\\Desktop\MiCarpeta\" & Clientee & "'
.AutosaveFormat = 0 ' PDF
.AutosaveFilename = "HojaCostes.pdf")
End With
With PDFCreator1
.cOptions = opt
.cClearCache()
.cPrinterStop = False
End With
opt = Nothing
PDFCreator1.cClose()
PDFCreator1 = NothingLa impresora por defecto es el PDFCreator pero de todas formas también agradecería si lo supierais como decirle por que impresora quiero que imprima! MUCHISIMAS GRACIAS de antemano! ^^
Valora esta pregunta
0