PDF drucken/speichern
22.08.2005 01:07:46
FrankyB
ich habe ein Problem welches ich nicht mehr alleine lösen kann.
Mit den u.a. Makros starte ich einen Druckvorgang per UserForm
Mit Makro/Button 1 wird mir eine Druckerauswahlliste angezeigt, in der ich den AcrobatDistiller auswählen kann - um z.B. aus einer Excelmappe ein PDF herzustellen.
Mit Makro/Button 2 starte ich den Druckvorgang.
Funzt alles wunderbar.
Aber mein Problem ist, dass beim Start des Druckvorgangs, das Fenster Save PDF FileAs angezeigt wird und von mir erwartet - das PDF Dokument zu speichern.
Dieses Fenster soll aber nicht erscheinen, sondern Excel soll das PDF Dokument ohne Meldung automatisch speichern - am besten noch mit einem Pfad der in einer Zelle steht. Das wäre perfekt.
Fällt euch da was zu ein ?
Danke euch im voraus
Gruss Frank
1)
Private Sub cmdChangePrinter_Click() Druckerauswahlliste
Me.Hide
Application.Dialogs(xlDialogPrinterSetup).Show
lblPrinter.Caption = Application.ActivePrinter
Me.Show
End Sub
2)
Private Sub CommandButton1_Click() Speichern/Druckvorgang starten
Unload Me
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
3)
Private Sub UserForm_Activate()
lblPrinter.Caption = Application.ActivePrinter
End Sub