Herbers Excel-Forum - das Archiv

Druckbereich selektieren

Bild

Betrifft: Druckbereich selektieren
von: Erich M.
Geschrieben am: 01.10.2003 11:49:43
Hallo zusammen,

ich habe von Hajo's HP eine Datei für die Festlegung des Druckbereichs.
Diese habe ich um einige Zeilen ergänzt.
Soweit alles klar.
Ich schaffe es aber nicht, dass ich den ausgewählten Druckbereich
per "Select" mir nur anzeigen und nicht ausdrucken lasse.
Wie müsste ich anpassen:

Sub Druckvorschau()
'   erstellt von Hajo.Ziplies@web.de 16.08.03
' http://home.media-n.de/ziplies/
'   ergänzt von Erich M.
Dim LoI As Long, LoJ As Long, i As Long
Dim LoLetzte As Long, LoLetztes As Long
Worksheets("Auswertung").Activate
LoLetzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
LoLetztes = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
'   Printbereich setzen
'    ActiveSheet.PageSetup.PrintArea = "$C$1:$H$" & LoLetzte
For LoI = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Application.WorksheetFunction.CountA(Range(Cells(LoI, 2), Cells(LoI, 100))) = 0 Then
' Zeile ausblenden
Rows(LoI).EntireRow.Hidden = True
End If
Next LoI
For i = 1 To 10
Rows(i).EntireRow.Hidden = True
Next i
For LoJ = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column To 1 Step -1
If Application.WorksheetFunction.CountA(Range(Cells(1, LoJ), Cells(500, LoJ))) = 0 Then
' Zeile ausblenden
Columns(LoJ).EntireColumn.Hidden = True
End If
Next LoJ
Range(LoI, LoJ).Select
'    ActiveSheet.PrintOut
'    Cells.Select
'    Selection.EntireRow.Hidden = False
'    Selection.EntireColumn.Hidden = False
'    Range("A1").Select
'    ActiveSheet.PageSetup.PrintArea = ""
End Sub


Besten Dank für eine Hilfe!

mfg
Erich
Bild

Betrifft: ActiveSheet.PrintPrewiew (oT)
von: xXx
Geschrieben am: 01.10.2003 12:34:01
Bild

Betrifft: Danke - perfekt! (o.T.)
von: Erich M.
Geschrieben am: 01.10.2003 13:07:45
.
Bild

Betrifft: Range("Druckbereich").Select '(o.T.)
von: WernerB.
Geschrieben am: 01.10.2003 12:34:56
Bild

Betrifft: DANKE! o.T.
von: Erich M.
Geschrieben am: 01.10.2003 16:19:46
.
 Bild
Excel-Beispiele zum Thema " Druckbereich selektieren"
Druckbereich variabel gestalten Druckbereich bis zum ersten Nullwert festlegen
Aktuellen Bereich in den Spalten A:F als Druckbereich Druckbereich in Abhängigkeit zur Einträgen in einer Spalte
Druckbereiche als GIF-Grafiken exportieren Druckbereichsauswahl über CheckBoxes
Druckbereich der 1. Seite ermitteln Wert in UserForm-TextBox eintragen und selektieren
Selektieren von über ComboBox-Felder ausgewählten Werten