Leere Seite nicht drucken?
25.10.2007 14:11:00
Selma
ich habe eine Frage:
Was muss ich in unterem Code verändern, damit nur die Seiten gedruckt werden, die ein Inhalt in Zelle A1 haben?
Sub Drucken_3()
Range("A1").ClearContents
Application.Dialogs(xlDialogPrint).Show
For n = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If UCase(Cells(n, 3).Value) = "X" Then
Cells(1, 1).Value = Cells(n, 2).Value
Range("A1:A45").PrintOut
End If
Next n
End Sub
Vielen Dank im Voraus.
Liebe Grüße
Selma
Anzeige