Druck über CMB
Stefanglander
ich habe folgenden Code in diese Arbeitsmappe gelegt:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i As Integer
Dim varRow
Dim rZelle As Range
myAr = Array(Sheets(30), Sheets(29), Sheets(7))
For i = LBound(myAr) To UBound(myAr)
With myAr(i)
varRow = Application.Match(10 ^ 307, .Columns(1), 1)
If IsNumeric(varRow) Then
If varRow
Im Modul steht folgendes:Option Explicit
Public myAr()
Sub Einblenden()
Dim i As Integer
For i = LBound(myAr) To UBound(myAr)
myAr(i).Cells.EntireColumn.Hidden = False
myAr(i).Cells.EntireRow.Hidden = False
Next i
Erase myAr
End Sub Nun habe ich versucht über einen CMB auf Sheet 29 den Drück auszulösen.
Private Sub CommandButton1_Click()
PrintOut Copies:=1, Collate:=True
End Sub
Nun wird aber wieder das gesamte Blatt gedruckt.Wie muss ich den Code für den CMB ändern.
Für Hilfe bedanke ich mich im Vorfeld
Stefan