Excel2010 - Tabellename als Druckauftragsname übernehmen

[Zwergenmeister (Gast)]

Hallo liebes Forum,

ich habe schon die Suche genutzt und auch sehr viel google aber leider 
keine passende Antwort gefunden.

Ist folgendes in Excel 2010 und Makro möglich:

Tabellen Namen als Druckauftragsnamen übernehmen und nicht den Namen der 
Datei.
Dann an einen PDF Drucker senden und mit dem Tabellennamen speichern.

(In Office direkt als pdf erstellen ist keine Option da Excel keinen 
Randlosen Briefkopf ununterstützt!)


Vielen Dank
Gruß Zwergenmeister

[ge-nka (Gast)]

Zwergenmeister schrieb:
> (In Office direkt als pdf erstellen ist keine Option da Excel keinen
> Randlosen Briefkopf ununterstützt!)

Was meinst du mit "Randlosen Briefkopf"?
Wenn du dein PDF-Drucker im Windows als Standarddrucker stellst, dann 
werden deine Drucke Randlos sein, zumindestens mit  FreePDF als 
Standarddrucker.

[Rainer V. (rudi994)]

siehe Anhang.

[ge-nka (Gast)]

Hat meine Frage nicht beantwortet,
anbei zwei Fotos, erzeugt mit deinem Skript.
Einmal ein echter Drucker als Standard Drucker,
einmal FreePDF als Standard Drucker.
Meintest du mit Randlos das?

[Guido C. (guidoanalog)]

Hallo,

ich habe das Makro nicht getestet, vielleicht hilft es Dir dennoch 
weiter. Du benötigst zur Ausführung des Makros PDFCreator.
http://www.excelguru.ca/content.php?161-Printing-Worksheets-To-A-PDF-File-%28Using-Early-Binding%29

Die Stelle in dem Makro, die dich interessiert, dürfte diese hier sein:

'Assign settings for PDF job
    With pdfjob
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sPDFPath
        .cOption("AutosaveFilename") = sPDFName
        .cOption("AutosaveFormat") = 0    ' 0 = PDF
        .cClearCache
    End With

Mit freundlichen Grüßen
Guido