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
hab jetzt das problem, dass er eigentlich alles für den druckbereich macht, was ich möchte, wie z.b. din a3, querformat, automatischd ruckbereich festlegen (1.zeile bis letzte spalte) oben datum, unten seite, aber ich möchte noch, dass er automatisch auf "alle spalten auf einer seite drucken" setzt, das tut er irgendwie noch nicht, vll. weil ein fehler drin ist?