benötige Hilfe bei Druckvorschau
02.04.2021 12:04:44
Peter
ich habe eine Tabelle11 mit vielen Spalten. Ich möchte die Spalte T, sowie die Spalten AO und AP per Printpreview bzw. Printout ansehen bzw. ausdrucken. Das nachstehende Makro habe ich mit Beiträgen aus dem Archiv zusammengestellt. Diese markiert die gewünschten Bereiche einwandfrei. Was nun noch fehlt ist der Druck:
Sub Druckbereich_Test()
Dim wb As Workbook
Dim wksTB11 As Worksheet
Dim Lz As Long 'letzte Zeile (wird ermittelt)
Dim i As Long 'ermittelte Zeilen
Dim Bereich, Bereich1 As Range 'Auswahlbereich Spalten T und AO - AP
Application.ScreenUpdating = False
Set wb = ThisWorkbook
Set wksTB11 = wb.Worksheets("Tabelle11")
With wksTB11
Lz = .Cells(Rows.Count, 20).End(xlUp).Row 'ermitellt letzte Zeile
For i = Lz To 4 Step -1
If .Cells(i, 20) "" Then Exit For
Next i
Set Bereich = .Range("T4" & ":T" & i)
Set Bereich1 = .Range("AO4" & ":AP" & i)
Union(Bereich, Bereich1).Activate
'Anfang - Druckbereich festlegen
.PageSetup.PrintArea = "" 'leert den vorhandenen Druckbereich
'hier benötige ich den Einbau von Printpreview bzw. Printout
'Ende - Druckbereich festlegen
End With
Application.ScreenUpdating = True
End Sub
Gruss
Peter
Anzeige