pdf drucken mit button in excel einfügen

[derHoepp]

Moin,

zusätzlich solltest du die Links in Ralfs Beiträgen beachten. Zum PDF-Export ist PrintOut in der Regel nicht der richtige Weg, weil du dich in Abhängigkeit zu Druckertreibern begibst, statt die eingebauten Export-Funktionen zu nutzen.

Viele Grüße
derHöpp

[eurosky]

Okay werde ich versuchen, Danke !

[MisterBurns]

Wozu der Umstand über Makro? In die Symbolleiste für Schnellzugriffe kann genau der gewünschte Befehl als Schaltfläche abgelegt werden.
https://support.microsoft.com/de-de/offi...3d03895ab7

Der Befehl findet sich unter "Alle Befehle - Als PDF oder XPS veröffentlichen"

[eurosky]

Danke, das geht auch aber bei einigen Kollegen die mit Excel nichts am Hut haben nicht Aktiv?!
Mein Code funkt noch immer nicht?!?

Sub PDFneu()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        ActivePrinter = MicrosoftPrint to PDF auf Ne02
        OpenAfterPublish = True
End Sub

[derHoepp]

Moin,

Programmieren ist nicht raten und Fehlerbeschreibungen sollten mehr enthalten als die Aussage, dass etwas nicht funktioniert. Und warum bleibst du beim Druck und nicht beim Export?

Viele Grüße 
derHoepp

[RPP63]

Moin eurosky!
Nimm es mir nicht allzu übel:
Deine Kollegen sind leider nicht die einzigen, die mit Excel nichts am Hut haben.
Ich hatte Dir oben die ExportAsFixedFormat-Methode nahegelegt und verlinkt.
Darauf zielt auch der Tipp von MisterBurns ab, der zeigt, wie das völlig ohne VBA funktioniert.
Gleich als erste Antwort in diesem Thread kam von knobbi38, dass Du den Rekorder benutzen sollst.
Von Schauan kam der Tipp, was Du als ActivePrinter:= übernehmen musst.
Da ?ActivePrinter einen String übergibt, musst Du ihn auch in "" setzen!

Da ich nicht nur meckern will, mal beide Methoden, wie ich sie schreiben würde:

Code:

Sub PDF_Drucker()
Dim actPrinter As String
    actPrinter = ActivePrinter
    'Fehlerbehandlung, falls Abbruch
    On Error Resume Next
    ActiveSheet.PrintOut ActivePrinter:="Microsoft Print to PDF"
    On Error GoTo 0
    ActivePrinter = actPrinter
End Sub

Code:

Sub Export_PDF()
Dim Dateiname_und_Pfad As Variant
    Dateiname_und_Pfad = Application.GetSaveAsFilename
    If Dateiname_und_Pfad <> False Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF
    Else
        MsgBox "Abbruch durch Benutzer!"
    End If
End Sub

Gruß Ralf

[snb]

Oder:

Code:

Sub M_snb()
  With Application.FileDialog(2)
    .FilterIndex = 25
    If .Show Then ActiveSheet.ExportAsFixedFormat 0, .SelectedItems(1)
  End With
End Sub

[eurosky]

Danke für Eure Hilfe. 
Sorry tue mir extrem schwer und muss mich erst mal zurecht finden wusste nicht ,mal wie ich die MSG Box bedienen muss :( 
Bin sehr Froh und DANKBAR über jede Hilfe die ich noch bekomme.

[eurosky]

Ich habe so einen Button erstellt der Funktioniert auch.

Wenn ich nun aber mehrere Tabellen in meinem Excel Dokument habe (gesamt ca. 8) ist es möglich hier einen Code einzubetten der mir ermöglicht  das ich z.b. 4 dieser Tabellen Blätter als PDF abzuspeichern im Idealfall in einer PDF?! 

[ralf_b]

wenn du sie alle auswählst, sind sie gemeinsam das Activesheet und landen dann in einer Datei.