selbstsuchendes Printmakro
07.06.2007 16:38:51
dieter
das makro druckt mir eine Liste
von a1:057; das geht auf eine Din A4-Seite.
jetzt steht aber etwas in zeile 59.
Die wird nun nicht mehr gedruckt.
Verändere ich die Angabe 057 in O65; wird die nächste seite gedruckt,
aber es fehlen die "Spaltenangaben" wie sie auf der ersten seite sind.
Problem A : Wie bekomme ich die Zellinhalte A1:O6 auf die ff. Seiten
Problem B : Wie kann das makro selbst die zeile mit dem letzen Eintrag finden;dann fiele die begrenzung O65 etc weg.
danke + gruss
dieter
hier das makro:
Sub print_shippinglist()
' drucke_shippinglist Makro
' Makro am 17.11.2006 dieter aufgezeichnet
Range("A1:O65").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$65"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub