AW: Per Button eine bestimmte Range zu einem Dokument generieren
15.01.2024 10:44:28
UweD
Hallo
als PDF wäre das so machbar
Sub PDF_Quer()
Dim RNG As Range, QuerHoch As Variant, Datei As String
Datei = "G:\Temp\Test.pdf"
With Sheets("Tabelle1")
Set RNG = .Range("A32:D65")
QuerHoch = .PageSetup.Orientation
' ggf Orientierung umstellen
If QuerHoch = xlPortrait Then .PageSetup.Orientation = xlLandscape
RNG.Select
'Markierung als PRF ausgeben
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Datei, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
'Orientierng zurückstellen
If QuerHoch = xlPortrait Then .PageSetup.Orientation = QuerHoch
End With
End Sub
LG UweD