Druck 2 Abschnitte auf Din A4

Forumthread: Druck 2 Abschnitte auf Din A4

04.12.2008 21:11:07

Peter

Hallo
Möchte gern 2 Abschnitte von einem Tab auf einer DinA 4 Seite Drucken.
Gelingt aber nicht, da er jeden Abschnitt auf einer Din A4 Seite druckt.


Sub Karte_Drucken()
' Karte_Drucken Makro
'    Range("A2:T14,A17:T29").Select
'    Range("A17").Activate
'    With ActiveSheet.PageSetup
'        .PrintTitleRows = ""
'        .PrintTitleColumns = ""
'   End With
ActiveSheet.PageSetup.PrintArea = "$A$2:$T$14,$A$17:$T$29"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&""Arial,Standard""&8                            "
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = True
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Druck 2 Abschnitte auf Din A4

04.12.2008 22:11:51

Jürgen
AW: Druck 2 Abschnitte auf Din A4

05.12.2008 07:04:00

Beverly

AW: Druck 2 Abschnitte auf Din A4

04.12.2008 22:11:51

Jürgen

Hallo Peter,
prüfe doch mal, ob der Druckertreiber nicht die Option "2 Seiten auf ein Blatt drucken" unterstützt - damit solltest Du Dein Problem lösen können.
Ohne zu wissen, warum Du Dich für Excel entschieden hast, um die Karten zu drucken, würdest Du Deine textlastige Aufgabenstellung wahrscheinlich besser / einfacher mit Word oder Powerpoint lösen können.
Herzlichen Gruß
Jürgen

AW: Druck 2 Abschnitte auf Din A4

05.12.2008 07:04:00

Beverly

Hi Peter,
kopiere zuerst beide Bereiche in einen gemeinsamen Tabellenbereich und drucke diesen:


Sub drucken()
Union(Range("A2:T14"), Range("A17:T29")).Copy Range("A50")
Range("A50:T76").PrintOut
End Sub

Beliebteste Forumthreads (12 Monate)

Forumthread: Druck 2 Abschnitte auf Din A4

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread