Markierten Bereich / Zelle Drucken
06.04.2005 11:27:34
abdi
habe mich schon in der Recherche durchgewühlt, aber leider nichts vergleichbares gefunden.
Ich würde gerne Etiketten drucken, nach dem ich nicht immer alle Etiketten auf so nem Bogen auf einmal Bedrucke, sondern nach und nach, habe ich mir den u.s. code herausgesucht. Schließlich soll auf der Seite genau dort gedruckt werden, wo noch ein Etikett ist.
Leider funktioniert der nicht. Es wird grundsätzlich die gesamte Seite gedruckt.
Hat jemand von Euch eine Idee?
Danke im Voraus.
Gruß abdi
Sub BereichDrucken()
Dim rng As Range
Application.ScreenUpdating = False
ActiveSheet.Copy
For Each rng In Range("A1").CurrentRegion
If rng. then '...hier sollte irgendwie stehen "wenn nicht markiert"
rng.ClearContents
End If
Next rng
ActiveSheet.PrintPreview
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Anzeige