Objekt erforderlich
30.10.2003 11:39:36
Daniel
Ich wähle mit UF die Tabelle die ich drucken will und durch ein SpinButton(1) wähle der Anzahl der Kopien(der steht in Label2).
Wieso funkt der Code nicht? wenn ich die vorletze Zeile benutze geht's.
Wie soll ich vorgehen?
Sub druckerei()
Dim Tabelle As Worksheet
With ActiveSheet.PageSetup
'.LeftHeader = ""
' .CenterHeader = ""
' .RightHeader = ""
' .LeftFooter = ""
' .CenterFooter = ""
' .RightFooter = ""
.LeftMargin = Application.InchesToPoints(3.93700787401575E-02)
.RightMargin = Application.InchesToPoints(3.93700787401575E-02)
.TopMargin = Application.InchesToPoints(3.93700787401575E-02)
.BottomMargin = Application.InchesToPoints(3.93700787401575E-02)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
'.PrintQuality = -2
.CenterHorizontally = True
.CenterVertically = False
'.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
' .BlackAndWhite = False
' .Zoom = 83
.PrintErrors = xlPrintErrorsDisplayed
End With
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=Spinbutton1.Value, Collate:=True
End Sub
Danke Daniel