Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Druckbereich variabel

Druckbereich variabel
11.10.2003 16:34:02
Erich M.
Hallo zusammen,

habe in der Recherche folgenden Code gefunden, der einen
variablen Druckbereich ab A1 ermiteln soll:


Sub atester()
On Error Resume Next
Dim wks As Worksheet
Dim endrow%, i As Integer
Set wks = Sheets(1)
wks.Select
endrow = Cells(Cells.Rows.Count, 1).End(xlUp).Row 'Letzte Zeile mit Inhalt
i = 1
Do
i = i + 1
Loop Until Cells(endrow, i) <> ""
If i >= 257 Then
i = 1
End If
Set druckrange = Range(Cells(1, 1), Cells(endrow, i))
ActiveSheet.PageSetup.PrintArea = druckrange.Address
If druckrange Is Nothing Then
MsgBox "Konnte keinen Druckbereich festlegen..."
End If
End Sub


Allerdings erhalte ich diese Fehlermeldung,
für die Zeile "Set druckrange...":
Fehler beim kompilieren
Objekt erforderlich

Besten Dank für eine Hilfe!

mfg
Erich


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich variabel
11.10.2003 17:01:08
Reinhard
Hi Erich,
bei mir läüft das problemfrei (win98,excel2000), allerdings wird immer nur A1 als ruckbereich oder eher Druckzelle *gg* gewählt.
Nimm doch unten druck1 (es druckt den benutzten Bereich) oder Druck2 (es druckt den vorher selectierten/markierten Bereich)
druckt bedeutet hier, als Druckbereich festlegen.
Gruß
Reinhard


Sub druck1()
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
End Sub



Sub druck2()
ActiveSheet.PageSetup.PrintArea = ActiveWindow.RangeSelection.Address
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige