Microsoft Excel

Herbers Excel/VBA-Archiv

Druckbereich verschiedener Spalten

Betrifft: Druckbereich verschiedener Spalten von: Gregor
Geschrieben am: 15.09.2004 18:22:20

Hoi zusammen

Ich möchte aus einer Tabelle per Makro folgenden Druckbereich festlegen und per Seitenansicht (auf einer Seite!) anschauen:

A4 bis D letzte Zeile und J4 bis P letzte Zeile

Sowei bin ich gekommen, aber ich möchte eben nicht nur die aneinandergereihte Spalten. Das müsste doch irgendwie gehen.

Sub Druckbereich()
Dim compose As String
intLastRowPrint = Cells(Rows.Count, 1).End(xlUp).Row
    compose = "$A$4:$D$" & intLastRowPrint
    With ActiveSheet.PageSetup
        .PrintArea = compose
    End With
    ActiveWindow.SelectedSheets.PrintPreview
End Sub


Vielen Dank
Gregor
  


Betrifft: AW: Druckbereich verschiedener Spalten von: Olaf
Geschrieben am: 15.09.2004 23:33:13

Nichtzusammenhängende Druckbereiche werden auf separaten Seiten gedruckt.
Alternative, bereiche auf einem temporären Blatt zusammenkopieren.

Olaf


  


Betrifft: AW: Druckbereich verschiedener Spalten von: Gregor
Geschrieben am: 16.09.2004 07:55:44

Danke Olaf für die Klarstellung, schade dass das nicht geht.
Dann versuche ich es mit Gruppierungen.

Ganke und Gruss
Gregor


 

Beiträge aus den Excel-Beispielen zum Thema "Druckbereich verschiedener Spalten"