Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
176to180
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
176to180
176to180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro:xls zu pdf & drucken#2

Makro:xls zu pdf & drucken#2
04.11.2002 13:48:58
Daniel
Hallo Zusammen

Habe ein Makro welches ein Excel-File direkt in ein pdf-file konvertiert und printet (via jaws pdf-creator).
Wenn der jaws PDF Creator gestartet wird, fragt er natürlich wo und mit welchem Filename gespeichert werden solll. Kann man dies automatisieren ?

Dim FileName As String

FileName = "p:\A_DatenDaniel\USC\Diverses\test.pdf"
Application.ActivePrinter = "Jaws PDF Creator on Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Jaws PDF Creator on Ne00:", Collate:=True
Saveas: FileName
FileName = "p:\A_DatenDaniel\USC\Diverses\test.pdf"
End Sub

(bekomme Compiler Error beim Saveas Filename...)

Wüsste das jemand von Euch ?
Vielen Dank im Voraus, Daniel

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro:xls zu pdf & drucken#2
04.11.2002 14:59:09
Steffen D
Versuch mal so:

Sub test()
Dim FileName As String

FileName = "p:\A_DatenDaniel\USC\Diverses\test.pdf"
Application.ActivePrinter = "Jaws PDF Creator on Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Jaws PDF Creator on Ne00:", Collate:=True, PrToFileName:=FileName

End Sub


Ich kann das nicht testen, aber bei Kompilieren gibt er kein Fehler aus.

viel Spaß

Steffen D

Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige