vielleicht hat einer von euch eine Antwort parat ... es geht um folgendes;
ich habe einen Command Button in einem Excelsheet erstellt; hinter dem wollte ich einen Druckbefehl setzen; mittels Seitenumbrüchen sollte auch in dem CommandButton festgelegt werden, welche Zeilen ausgedruckt werden sollen;
schlussendlich bin auf diesen Befehl gekommen; er zeigt mir aber leider einen Laufzeitfehler 1004 an:
Private Sub CommandButton1_Click()
Set ActiveSheet.HPageBreaks(1).Location = Range("A39")
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
With ActiveSheet.PageSetup
.BlackAndWhite = True
.PaperSize = xlPaperA4
End With
End Sub
Vielleicht weiss jemand wo der Fehler liegen könnte oder wie ich es besser machen könnte ; vielen Dank auf jeden Fall im voraus,
Schönen Tag noch,
Arno