Druckvorschau zwei Tabellenbereiche
21.12.2016 17:18:50
Peter
ich versuche seit geraumer Zeit zu erreichen, dass zwei Druckbereiche angezeigt werden. Leider ohne Erfolg.
Mit nachstehendem Makro lasse ich mir einen Druckbereich anzeigen.
Sub PrintArea06() 'Diese Version ist i.O. Druckbereich wird eingestellt, gedruckt und _
Druckbereich zurückgesetzt
Dim ws As Worksheet
Set ws = ActiveSheet
wsLR = ws.Cells(Rows.Count, 1).End(xlUp).Row
wsLC = ws.Cells(1, Columns.Count).End(xlToLeft)
'ws.PageSetup.PrintArea = strDruckbereich
Set PrintA = ws.Range("A1:H" & wsLR) 'Druckbereich wird hier bestimmt
ws.PageSetup.PrintArea = PrintA.Address(0, 0)
With ws
.Activate
lView = Application.ActiveWindow.View
.ResetAllPageBreaks 'Alle vorhandenen festen Seitenwechsel löschen
''' With .PageSetup
''' .LeftFooter = "&""Arial,Standard""&12Kontensaldo"
''' .CenterFooter = "&""Arial,Standard""&12Stand " & Format(ActiveSheet.Range("N11"), "dd. _
mm.yyyy")
''' .RightFooter = "&""Arial,Standard""&12 " & Format(ActiveSheet.Range("O11"), "### _
0.00")
''' End With
End With
ws.PrintPreview 'Ansicht
'ws.PrintOut Copies:=1 'Ausdruck
'Druckbereich zurücksetzen
ws.PageSetup.PrintArea = strDruckbereich
End Sub
Ich möchte aber im Anschluss an die letzte Zeile die Zellen T2, U2 und V2 aus dem Tabellenblatt Kontosalden einfügen.
Könnt Ihr mir hierbei bitte helfen.
Gruss
Peter