Herbers Excel/VBA-Archiv

Druckbereich selektieren

• Druckbereich selektieren von Erich M. vom 01.10.2003 11:49:43
  • ActiveSheet.PrintPrewiew (oT) - von xXx am 01.10.2003 12:34:01
    • Danke - perfekt! (o.T.) - von Erich M. am 01.10.2003 13:07:45
  • Range("Druckbereich").Select '(o.T.) - von WernerB. am 01.10.2003 12:34:56
    • DANKE! o.T. - von Erich M. am 01.10.2003 16:19:46

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


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






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

.




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






Betrifft: DANKE! o.T. von: Erich M.
Geschrieben am: 01.10.2003 16:19:46

.




Beiträge aus den Excel-Beispielen 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