Office: Bedingtes Drucken

Hola,

ich möchte in einer Datei vorgegebene Zellen ausdrucken. Dazu möchte ich in einer Userform auswählen können, welche Tabellen und welche Spalten ausgedruckt werden sollen. Die Spalten sollen mit ihrer Überschrift auf der 5.Zeile auf der Userform erscheinen.

Würde jemand mir einen Makro dazu schreiben und die Userform erstellen?
Ich habe mit der Aufnahme Funktion Stundenlang probiert aber das klappt einfach nicht.

Bis später, Publi

 

ich arbeite schon mit Vrsion 2010, aber selbst diese Version kann aus einem Bild keine Userform erstllen.
Arbeite mit Druckbereich.

 

Meinst Du sowas in der Art:

Gruß, Michael

 

Das Bild der Userform habe ich zur besseren Erklärung dargestellt.

 

Dankeschön Michael :) Genau das ist es.

 

Wie Du wahrscheinlich schon festgestellt hast, sind die eigentlichen "drucken" Buttons ohne weitere Funktion. Ich hatte mich erstmal um die Funktionalität mit den ein- bzw. auszublendenen Spalten gekümmert.

Kriegst Du den Rest so hin? Sonst sag Bescheid...

Gruß, Michael

 

Guten Morgen Michael,

Habe es nun lange versucht und alles rein und raus kopiert aber es hat nichts geholfen :) das wäre sehr nett von dir, wenn du für mich die Funktionen auch schreiben könntest.

 

Die Kurzform der drei Button-Routinen wäre:

Code:

Private Sub btn_direkt_drucken_Click()

    ActiveSheet.PrintOut

    Worksheets("Auswertung").Activate

    frm_Drucken.Hide

End Sub

Private Sub btn_Druckvorschau_Click()

    frm_Drucken.Hide

    ActiveSheet.PrintPreview

    frm_Drucken.Show

End Sub

Private Sub btn_Seite_einrichten_Click()

    Application.Dialogs(xlDialogPageSetup).Show

End Sub

Gruß, Michael

 

Ich danke dir vielmals Michael.
Du hast mir sehr geholfen :)