Druckvorschau bzw. Druck letzte Seite
04.01.2017 15:39:57
Peter
leider finde ich nichts im Web.
Ich benutze folgenden Code zum Ansehen bzw. Ausdruck der Tabelle:
Sub CommandButtonDrucken_Click()
Dim ws As Worksheet
Dim sSep As String, sText As String 'einfügen
sSep = Application.Rept("_", 20) 'einfügen
Call Tabellen_einblenden
Worksheets("Tabelle1").Activate
Set ws = ThisWorkbook.Worksheets("Tabelle1")
wsLR = ws.Cells(Rows.Count, 1).End(xlUp).Row
wsLC = ws.Cells(1, Columns.Count).End(xlToLeft)
Set PrintA = ws.Range("A1:G" & wsLR) 'Druckbereich wird hier bestimmt
ws.PageSetup.PrintArea = PrintA.Address(0, 0)
ws.PageSetup.Zoom = 90
With ws
With .PageSetup
.LeftFooter = "&""Arial,Standard""&12geprüft am &D" 'einfügen
sText = sSep & vbLf & "&12H. Brücklmayr (OStD)" & vbLf & "Schulleiter" 'einfügen
.CenterFooter = sText
Format(ActiveSheet.Range("N11"), "dd.mm.yyyy")
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
Wie kann ich dies bitte bewerkstelligen.
Besten Dank für Eure Hilfe.
Gruss
Peter