Fehlermeldung in Makto, die früher nie auftauchte
20.02.2008 10:52:00
urs
Folgende Fehlermeldung:
Laufzeitfehler '1004' Die PaperSize-Eigenschaft des Pagesetup-Objektes kann nicht festgelegt werden.
Taucht nun plötzlich auf. Ich bin mir nicht bewusst an diesem Teil des Makros etwas verändert zu haben.
Im Code ist die Linie fett markiert, wo der Debugger hält.
Warum taucht dieser Fehler plötzlich auf? Wer weiss Abhilfe? Gruss Urs
Sheets(Array("Aufbau", "Arbeitsplan")).Select
'Sheets("Aufbau").Activate
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "&A"
.RightFooter = _
"&8&F&""MS Sans Serif,Fett"" " & Chr(10) & "&""MS Sans Serif,Standard""Druck: &D / &T"
.LeftMargin = Application.InchesToPoints(0.551181102362205)
.RightMargin = Application.InchesToPoints(0.236220472440945)
.TopMargin = Application.InchesToPoints(0.433070866141732)
.BottomMargin = Application.InchesToPoints(0.669291338582677)
.HeaderMargin = Application.InchesToPoints(0.433070866141732)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With