Code umstellen
Kai
ich da einen VBA Code zum Drucken das klappt auch ganz gut. Jetzt wollte ich wissen wie man ihn umstellt das er die leeren zeilen nicht druckt. Bitte um hilfe !!!
mfg Kai
Sub DRU_02()
Dim frage As Integer, intP As Long
frage = MsgBox("Wollen sie den Plan Drucken !!!", vbInformation + vbYesNo)
If frage = vbYes Then
On Error Resume Next
intP = InputBox("Wieviele Kopien ?", "Ausdruck Kopien", 1)
On Error GoTo 0
Debug.Print StrPtr(intP)
If intP > 0 Then
Call Drucken_02(intP)
Else
MsgBox "Kein Ausdruck weil keine Kopien angegeben wurden !", _
vbInformation + vbOKOnly, "Abbruch"
End If
End If
End Sub
Sub Drucken_02(pPages As Long)
Dim rng As Range
Dim objsh As Worksheet
Set objsh = ThisWorkbook.Sheets("Tabelle1")
With objsh
For Each rng In .Range("BD3:BD9")
.Range("B1") = rng
.PrintOut Copies:=pPages
Next
End With
Set objsh = Nothing
End Sub
Anzeige