Microsoft Excel

Herbers Excel/VBA-Archiv

Liste drucken

Betrifft: Liste drucken von: Erich Müller
Geschrieben am: 16.08.2004 11:46:44

Hallo,
ich habe 2 Fragen :
1) eine ständig erweiterbare Liste A2:C?? soll ausgedruckt werden. Allerdings nur bis zur letzten ausgefüllten Zeile. Die Spalte A ist mit Formeln vorbelegt.
2) Wie muss das Makro für eine neue Liste A2:B?? geändert werden ?

Gruß
Erich Müller

https://www.herber.de/bbs/user/9689.xls

  


Betrifft: AW: Liste drucken von: Hans W. Herber
Geschrieben am: 16.08.2004 12:53:59

Hallo Erich,

wenn die Daten in Spalte C eingetragen werden:
Sub Drucken()
   Dim iRow As Integer
   iRow = Cells(Rows.Count, 3).End(xlUp).Row
   ActiveSheet.PageSetup.PrintArea = Range("A1:C" & iRow).Address
   ActiveSheet.PrintPreview
End Sub

gruss hans


 

Beiträge aus den Excel-Beispielen zum Thema "Liste drucken"