Drucken bestimmter Blätter und Inhalte
28.10.2007 19:10:20
Dirk
Da ich nur recht bescheidene Kenntnisse in Sachen VBA besitze und mir Programme nicht so aus dem Ärmel fallen, wende ich mich an die Spezialisten.
Zu meinem Problem; ich habe eine UserForm, aus der heraus ich Blätter (die ich selber in einer ComboBox auswähle) drucken kann. Der zu druckende Spaltenbereich ist A bis N. In Spalte A befinden sich x Formeln. Gedruckt werden sollen nur die Bereiche, die gefüllt sind, uzw. bis zur letzten nicht leeren Zelle der Spalte B.
Den folgenden Ansatz habe ich. ActiveSheet soll nun durch meine Auswahl aus der ComboBox "cbbBlaetter"
ersetzt werden.
Also wenn Blatt 1 oder 2 oder alle ausgewählt, dann drucken bis zu letzten nicht leeren Zelle von Spalte B.
Private Sub cbtDruck_Click()
Dim arrWks()
Dim iCounter As Integer, iCount As Integer
Dim Druck As String
Dim Von As String
Dim Bis As String
Druck = txbAnzEx
Von = txtVon
Bis = txtBis
If txtVon = "" Then
ActiveSheet.Range("A1:N" & Cells(Rows.Count, 2).End(xlUp).Row). _
PrintOut Copies:=Druck
Else
ActiveSheet.Range("A1:N" & Cells(Rows.Count, 2).End(xlUp).Row). _
PrintOut From:=Von, To:=Bis, Copies:=Druck
End If
Unload Me
End Sub
Im Voraus schon einmal danke.
Gruß
Dirk