Office: (Office 2007) nur bestimmte Tabellenblätter drucken

Guten Nachmittag allerseits

Ich bitte um eure professionelle Hilfestellung in der Excel-VBA Programmierung.

Gerne würde ich per Knopfdruck (VBA-CommandButton) nur 2 bestimmte Tabellenblätter drucken lassen.
Mein Excel-File hat bspw. 10 Tabellenblätter.
Wenn ich den Commandbutton drücke, möchte ich, dass er nur die Tabellenblätter 6 und 7 druckt. Geht das, unter der Voraussetzung, dass das Tabellenblatt 6 manchmal 1 oder 2 Seiten lang wäre? Das Tabellenblatt 7 ist standardmässig nur 1 Seite lang.

Danke und Gruss
Andi

:)

 

Hallo Andi,

Code:

Grüße
EarlFred

 

Hallo!
Hier ist die Länge mal egal ... *cool.gif* *tongue.gif*
Recht einfach per:
Code:

Du kannst den CodeName Tabelle6 auch durch den Namen ersetzen, der auf dem Tabellenreiter steht.
Dann ist dies Worksheets("Tabelle6").PrintOut
(Allerdings führt dies bei einer nachträglichen Umbenennung des Blatts zu einem Fehler)

Gruß Ralf

 

Vielen Dank euch beiden für den wertvollen Input.
Leider druckt Excel das File ohne zu fragen auf dem Standarddrucker. Gibt es eine einfache Lösung, bei der ich noch nach dem zu wählenden Drucker gefragt werde?

Gruss
Andi

 

Hallo!
z.B. so (der ActivePrinter wird hier nach dem Ausdruck wieder zurückgesetzt):
Code:

Gruß Ralf

 

Super! Herzlichen Dank für eure Hilfe.
Hat perfekt geklappt...

 

Hallo. Es ist zwar schon etwas länger her, hoffe aber, dass ich noch etwas hilfe bekommen könnte ...

Ich habe eine ähnliche Situation:
Es sind insgesamt 16 Tabellenblätter.
Das erst Tabellenblatt enthält eine Art "Deckblatt" bzw. ein/das Anschreiben.
Ab TB 2 folgen diverse Formulare.
Je nach Anfrage / Bearbeitung möchte ich nur die ausgewählten Blätter ausdrucken. Sehr Praktisch wäre es, wenn ich im ersten TB oben markieren/auswählen könnte, welche Blätter alles gedruckt werden sollen.
Z.B. TB2, TB5, TB9 usw. ...

Ist das umsetzbar?

Vielen Dank für eure Hilfe im Voraus!

MFG

 

Hi Klavito,

schau dir mal die Userform an, der Code ist noch nicht perfek(wenn keine Auswahl da ist, kommt ein Fehler) aber hier drüber kannst du die jeweiligen Tabellenblätter ansteuern und anstatt alle Blätter in eine PDF zu erstellen sagt du ihm .Printout

https://www.ms-office-forum.net/foru...d.php?t=353452