Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1060to1064
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Druckbereich

Druckbereich
15.03.2009 13:33:13
Kurt
Hallo Allerseits,
ich möchte gern, sobald ein Bedingung erfüllt ist 2 Druckbereich ausdrucken.
Hier das Druckmakro:
Z = Range("A2").End(xlDown).Row
ActiveSheet.Range(Cells(2, 1), Cells(Z, 15)).Select
With ActiveSheet.PageSetup
' .PrintArea = Range(Cells(2, 1), Cells(Z - 3, 15)).Address
' .PrintArea = Range(Cells(Z - 3, 1), Cells(Z + 3, 15)).Address
hier zusammengefaßt:
PrintArea = Range(Cells(2, 1), Cells(Z - 3, 15)).Address _
& Range(Cells(Z - 3, 1), Cells(Z + 3, 15)).Address
End With
klappt leider nicht,
mfg kurt aus k

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich
15.03.2009 13:50:11
Hajo_Zi
Hallo Kurt,
was klappt nicct. Du hast es ja schon getestet.
Jeder Druckbereich wird auf einem neuen Blatt gedruckt.

Schade...
15.03.2009 14:02:58
Kurt
Hallo Hajo,
na ja dann muß ich mal sehen...
mfg kurt aus k
Habe es so gelöst, danke -)
15.03.2009 14:12:46
Kurt
Hallo Hajo,
habe es so gelöst:
Z = Range("A2").End(xlDown).Row
ActiveSheet.Range(Cells(2, 1), Cells(Z, 15)).Select
With ActiveSheet.PageSetup
.PrintArea = Range(Cells(2, 1), Cells(Z - 5, 15)).Address
.PrintTitleRows = "$1:$2"
.PrintTitleColumns = ""
.RightHeader = "&""Arial,Fett"" "
.LeftFooter = "&""Arial,Fett""&8&P von &N"
.CenterFooter = " "
.RightFooter = "&""Arial,Fett""&8 &F &D &T"
.LeftMargin = Application.InchesToPoints(0.01)
.Orientation = xlLandscape ' für Querformat
'---------------- damit wird auf Anpassen gestellt -----------
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
'-------------------------------------------------------------
End With
ActiveWindow.SelectedSheets.PrintPreview
die letzte Seite dann nochmals so:
Z = Range("A2").End(xlDown).Row
ActiveSheet.Range(Cells(2, 1), Cells(Z, 15)).Select
With ActiveSheet.PageSetup
.PrintArea = Range(Cells(Z - 5, 1), Cells(Z + 5, 15)).Address
.PrintTitleRows = "$1:$2"
.PrintTitleColumns = ""
.RightHeader = "&""Arial,Fett"" "
.LeftFooter = "&""Arial,Fett""&8&P von &N"
.CenterFooter = " "
.RightFooter = "&""Arial,Fett""&8 &F &D &T"
.LeftMargin = Application.InchesToPoints(0.01)
.Orientation = xlLandscape ' für Querformat
'---------------- damit wird auf Anpassen gestellt -----------
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
'-------------------------------------------------------------
End With
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
es funktioniert,
schönen Sonntag noch,
mfg Kurt aus K
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige