Office: Excel 2010: VBA: Userform - Checkbox - nur ausgewählte Tabellenblätter drucken

KV17uwe · 5. März 2015

Hallo zusammen,

ich habe eine Exceltabelle mit 5 Tabellenblättern ("Deckblatt", "Arbeitnehmer", "Arbeitgeber", "Details", "Vertrag")
Ich rufe den Druckvorgang in einer Userform auf "UF_Drucken". Nun möchte ich anhand der Checkboxen auswählen ob

1. Alles gedruckt wird
2. Nur bestimmte (Checkbox = true) gedruckt wird

Ich habe 6 Checkboxen ( 1. Alles Drucken, 2.Deckblatt, 3. Arbeitnehmer usw)

Wie kann ich das machen das egal welche ausgewählt werden diese immer in eine Datei (PDF) gedruckt wird.

Vielen Dank euch schon mal :)

Viele Grüße

Uwe

sronny · 5. März 2015

Ich würde eine extra Speicher-Sub erstellen und dieser das entsprechende Tabellenblatt, welches gespeichert werden soll, übergeben.

Private Sub pdf_speichern (blatt as string)

Application.ScreenUpdating = False

Set ws = Worksheets(blatt)
seite = 1

Pfad = ActiveWorkbook.Path ' hier den Pfad eintragen, wo es hingespeichert werden soll, mit
' ActiveWorkbook.Path wird es Pfad der aktuellen Excel-Datei gespeichert
Datei = "Dateinname"

On Error GoTo Err_Makro3_PDF1
ws.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Pfad & Datei & ".pdf", _
From:=seite, To:=seite, OpenAfterPublish:=True, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintareas:=False
Exit Sub
Err_Makro3_PDF1:
MsgBox prompt:="Der Pfad '" & Pfad & "' zum Speicher der PDF-Datei existiert nicht!" & vbNewLine & vbNewLine & _
"Daher keine Speicherung der PDF-Datei --> Abbruch!", _
Buttons:=vbCritical + vbOKOnly, _
Title:="Falscher Dateipfad"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

bspw. mit

If chkbox1 = True then
pdf_speichern ("Tabelle1") ' Hier mit "" den Tabellennamen angeben
pdf_speichern ("Tabelle2") ' usw..
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

die jeweiligen Seiten abspeichren...

KV17uwe · 5. März 2015

Hallo Sronny,

ich galube ich habe mich da nicht 100% richtig ausgedrückt. Wenn ich alle Blätter über einen "PDF Drucker" drucken möchte wähle ich alle in ein Array so wie hier

Sheets(Array(Drucken_Versorgung, Drucken_Unfallschutz, Drucken_Detail, Drucken_Vertrag, Drucken_Deckblatt)).Select
Application.Dialogs(xlDialogPrint).Show
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und starte dann die Windows Druckerauswahl über Application.Dialogs(xlDialogPrint).Show

Dort wähle ich den aktiven PDF Drucker aus. Die Variablen im Array setzte ich hier

Drucken_Deckblatt = "Deckblatt"
Drucken_Versorgung = "Arbeitnehmer"
Drucken_Unfallschutz = "Unfallleistung"
Drucken_Detail = "Detailübersicht"
Drucken_Vertrag = "Versicherungsübersicht"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit allen was im Array steht gehst doch wie kann ich werte Dynamisch ins Array einfügen ?
Nun habe ich schon was gelesen wie ich das Array vergrößern und verkleinern kann doch habe ich es nicht geschafft was lauffähiges hinzubekommen.

Viele Grüße
Uwe

Office: Excel 2010: VBA: Userform - Checkbox - nur ausgewählte Tabellenblätter drucken

Excel 2010: VBA: Userform - Checkbox - nur ausgewählte Tabellenblätter drucken

Excel 2010: VBA: Userform - Checkbox - nur ausgewählte Tabellenblätter drucken

Excel 2010: VBA: Userform - Checkbox - nur ausgewählte Tabellenblätter drucken - Similar Threads - Excel 2010 VBA

Schließen von mehreren Datein

Teams-Gruppen-Call/Chat per VBA

Excel-Adressliste mit Bild

Excel 2010/VBA: Dateinamen auslesen & von beiden Seiten kürzen

Excel VBA Ferien und Feiertage aus dem Netz laden und darstellen

Textboxeingabe mit dem Wert in der dazugehörigen Zelle addieren

VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change)