Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.06.2025 22:11:12
24.06.2025 21:29:43
24.06.2025 19:48:50
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Druckbereich selektieren

Forumthread: Druckbereich selektieren

Druckbereich selektieren
01.10.2003 11:49:43
Erich M.
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ActiveSheet.PrintPrewiew (oT)
01.10.2003 12:34:01
xXx
Danke - perfekt! (o.T.)
01.10.2003 13:07:45
Erich M.
.
Range("Druckbereich").Select '(o.T.)
01.10.2003 12:34:56
WernerB.
Anzeige
DANKE! o.T.
01.10.2003 16:19:46
Erich M.
.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige