Clever-Excel-Forum

Seiten: 1 2

Und noch etwas:

(02.03.2024, 07:59)fb_1972 schrieb: [ -> ]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.
[attachment=51114]

Auch ein Formularsteuerelement hat eine "nicht drucken"-Eigenschaft:
[attachment=51115]

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?

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

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.

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

Hallo,

(05.03.2024, 10:17)fb_1972 schrieb: [ -> ]Selection.ExportAsFixedFormat xlTypePDF

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

Gruß, Uwe

Seiten: 1 2

RPP63

fb_1972

schauan

fb_1972

snb

Kuwer