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

 

Hallo an die Fachleute,

ich habe eine ähnliche Situation wie "klavito" beschrieben hat. Ich habe mehrere Tabellenblätter, die ich gerne auf dem ersten Tabellenblatt in einer Liste gerne mit einem "x" auswählen und dann per Command-Button als PDF generieren möchte. Der Link von CaboDon ist leider nicht mehr verfügbar.

Bisher habe ich das wie folgt gelöst:

Public Sub CreatePDF()

ActiveWorkbook.Save

'Variablen festlegen
Dim strDateiName As String
Dim strDateiPfad As String
Dim fDateinameTemp As Variant
Dim wsCurrent As Worksheet

strDateiPfad = ThisWorkbook.Path & Application.PathSeparator
fDateinameTemp = Split(ThisWorkbook.Name, ".")
fDateinameTemp(UBound(fDateinameTemp)) = "pdf"
strDateiName = Range("R1")

'Komplette Datei sichern
Call ThisWorkbook.ExportAsFixedFormat( _
Type:=xlTypePDF, _
Filename:=strDateiPfad & strDateiName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False)

'Einzelne Blätter sichern
For Each wsCurrent In ThisWorkbook.Worksheets
If wsCurrent.Visible = xlSheetVisible Then
strDateiName = wsCurrent.Name & Range("R2") & ".pdf"
Call wsCurrent.ExportAsFixedFormat( _
Type:=xlTypePDF, _
Filename:=strDateiPfad & strDateiName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False)
End If
Next

MsgBox ("Die PDF's wurden erstellt.")

End Sub

Hier wird 1x die gesamte Excel-Mappe gespeichert und jelweis 1x jedes Tabellen-Batt (so wie das Tabellen-Blatt benannt ist)

Wie bereits erwähnt, würde es mir jetzt mehr helfen, wenn ich anhand einer Liste das jeweilige Tabellen-Blatt per "x" auswählen könnte und diese werden dann entsprechend als PDF gespeichert. Meine VBA Kenntnisse sind dafür nicht ausreichend. Für Fach- und Sachkundige Hilfe bedanke ich mich recht herzlich im Voraus.

VG
Dirk

 

Moin Dirk,

so etwas ließe sich mit einer Userform lösen, in die erst einmal alle Blätter in eine Listbox mit Options eingelesen werden. Da wählst Du dann aus, was direkt in ein kompaktes PDF raus soll, das Du dann z.B. per Mail versendest oder direkt an Deinen Standarddrucker.

Das spart unzählige PDFs, die Du zur Kontrolle jeweils einzeln aufrufen müsstest.

Mit etwas Aufwand lassen sich dann auch Auswahl-Filter realisieren: Für ein Angebot gibts die Seiten abc, für eine technische Dokumentation die Seiten fgh und für die 3. Mahnung die Seite x - das ist dann die mit der Adresse Deines Rechtsanwalts ...

Schöne Grüße!

 

@d'r Bastler,
vielen Dank für den Hinweis. Ich werde mich mal daran versuchen.
VG
Dirk