Druckeinstellungen über Makro, Prob. bei Spalten
02.12.2014 08:59:07
Soeren
Sub CommandButton1_Click()
Dim AnzahlEinträgeZeilen As Integer
Dim AnzahlEinträgeSpalten As Integer
AnzahlEinträgeZeilen = WorksheetFunction.CountA(Sheets("Export Schätzraster 01.12.2014").Range(" _
_
_
A:A"))
AnzahlEinträgeSpalten = WorksheetFunction.CountA(Sheets("Export Schätzraster 01.12.2014").Range( _
_
_
"1:1"))
With ActiveSheet.PageSetup
'Festlegung auf Querformat
.Orientation = xlLandscape
'Druckbereich definieren
.PrintArea = _
Range(Cells(1, 1), Cells(AnzahlEinträgeZeilen, AnzahlEinträgeSpalten)).Address
'Druckansicht definieren
.PaperSize = xlPaperA3
'Seitenbreite definieren
.FitToPagesWide = 1
'Seitenhöhe definieren
.FitToPagesTall = False
'Seitenanzahl bestimmen
anzseiten = ExecuteExcel4Macro("Get.Document(50)")
'Rechte Fußnote mit Seitenanzahl belegen
.RightFooter = anzseiten
'Datum
.RightHeader = "&D"
End With
End Sub