VBA - Ausgabe als PDF von 4 Tabellenblättern auf Knopfdruck

[RPP63]

Und noch etwas:

Im ersten Tabellenblatt habe ich einen Knopf - ausserhalb des Druckbereiches platziert.

Das ist unnötig!
Nimm einen ActiveX-Button und weise ihm die Eigenschaft .PrintObject = False zu.
   

Auch ein Formularsteuerelement hat eine "nicht drucken"-Eigenschaft:
   

[fb_1972]

Hallo,
leider muss ich noch einmal nachhaken, da ich es nicht hinbekomme.

Zuerst habe ich alle Tabellenblätter gruppiert:


              Sheets(Array("Seite 1", "Seite 2", "Seite 3", "Seite 4")).Select

Jetzt wollte ich noch das sich ein Dialogfenster öffnet, wo ich den Ort der zu speichernden pdf selbst bestimmen kann.

Application.GetSaveAsFilename

Selection.ExportAsFixedFormat xlTypePDF



Leider klappt das mit dem öffnen des Fensters.
Gibt es dazu noch eine Idee?

[schauan]

..siehe die Beispiele von Ralf und mir...

[fb_1972]

Jetzt habe ich aber zwei leider immer noch zwei Probleme:
1. Es wird unter einem vorgegebene Namen gespeichert

2. Die von mir definierten Druckbereiche auf den einzelnen Blättern werden nicht übernommen
Die PDF Datei wird mit allen Inhalten auf den Seiten ausgegeben.

[snb]

Code:

Sub M_snb()
   For Each it In Sheets
    With Application.FileDialog(3)
       .InitialFileName = "G:\OF\*.pdf"
       .Filters.Clear
       .Filters.Add "PDF-Dateien", "*.pdf"
       If .Show Then it.ExportAsFixedFormat 0, .SelectedItems(1)
     End With
   Next
End Sub

[Kuwer]

Hallo,

Selection.ExportAsFixedFormat xlTypePDF

das das Selection... nicht so wie gewünscht funktioniert, solltest Du spätestens hier mitbekommen haben.

Gruß, Uwe