- #1
L
lebforces
Neues Mitglied
Themenersteller
- Dabei seit
- 06.05.2005
- Beiträge
- 2
- Reaktionspunkte
- 0
Hallo Leute
folgendes Problem
Habe in VBA ein Programm geschrieben, das mir eine powerpoint in pdf konvertiert.
Mein Problem ist, das es an der Stelle der PDF speicherung ein popup fenster erscheint und mich fragt ob ich speichern will.
Ich möchte aber das das Ding automatisch abläuft von Anfang bis Ende.
Grob gebe ich euch folgenden Source Code (habe Acrobat 6.0 professional)
Quelle der ppt, und ziel der pdf das gespeichert werden soll:
PowerpointDateiUndName = C:\Dokumente und Einstellungen\PPT.ppt
PDF_PFAD = C:\Dokumente und Einstellungen\
PDF_Datname = PPT.pdf
......
PDF_PFAD_UND_DATNAME = PDF_PFAD & PDF_Datname
....
AktivePrinterPDFWRITER = Acrobat PDFWriter
....
AktivPrinterMerk = PowerpointDatei.ActivePrinter
PowerpointDatei.ActivePresentation.PrintOptions.ActivePrinter=AktivePrinterPDFWRITER
.....
If AktivePrinterPDFWRITER = Acrobat PDFWriter
Then
PowerpointDatei.ActivePresentation.PrintOut(PrinttoFile = True) = PDF_PFAD_UND_DATNAME
End If
genau hier passiert das Problem, das er mich dann fragt ob gespeichert werden soll???? Mist
bitte um Hilfe
danke
folgendes Problem
Habe in VBA ein Programm geschrieben, das mir eine powerpoint in pdf konvertiert.
Mein Problem ist, das es an der Stelle der PDF speicherung ein popup fenster erscheint und mich fragt ob ich speichern will.
Ich möchte aber das das Ding automatisch abläuft von Anfang bis Ende.
Grob gebe ich euch folgenden Source Code (habe Acrobat 6.0 professional)
Quelle der ppt, und ziel der pdf das gespeichert werden soll:
PowerpointDateiUndName = C:\Dokumente und Einstellungen\PPT.ppt
PDF_PFAD = C:\Dokumente und Einstellungen\
PDF_Datname = PPT.pdf
......
PDF_PFAD_UND_DATNAME = PDF_PFAD & PDF_Datname
....
AktivePrinterPDFWRITER = Acrobat PDFWriter
....
AktivPrinterMerk = PowerpointDatei.ActivePrinter
PowerpointDatei.ActivePresentation.PrintOptions.ActivePrinter=AktivePrinterPDFWRITER
.....
If AktivePrinterPDFWRITER = Acrobat PDFWriter
Then
PowerpointDatei.ActivePresentation.PrintOut(PrinttoFile = True) = PDF_PFAD_UND_DATNAME
End If
genau hier passiert das Problem, das er mich dann fragt ob gespeichert werden soll???? Mist
bitte um Hilfe
danke