Laufzeitfehler 1004 Methode Printcommun. fehlgeschlagen

Forumthread: Laufzeitfehler 1004 Methode Printcommun. fehlgeschlagen

27.05.2025 11:24:41

Ringberger

Hallo Allesamt,

ich habe mal wieder ein Problem. Das Tabellenblatt soll je nach Erfordernis wahlweise im Hoch- oder Querformat gedruckt werden. Die Codes brechen in der vorletzten Zeile ab mit dem Laufzeitfehler 1004. Die Methode 'Printcommunication' für das Objekt '_Application' ist fehlgeschlagen. Der Standartdrucker ist richtig eingestellt und verbundene Zellen sind auch nicht vorhanden. Ich bin hier ratlos. Kann mir da jemand helfen?

https://herber.tusasbach.de/bbs/user/174303.xlsm

Danke

Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Laufzeitfehler 1004 Methode Printcommun. fehlgeschlagen

27.05.2025 11:49:12

Alwin Weisangler

Hallo Andreas,

nach diesem Prinzip beispielhaft so:



Sub Protokoll_hoch()

    With Tabelle1

        .Range("A1").ColumnWidth = 3

        .Range("B1").ColumnWidth = 8

        .Range("C1,D1").ColumnWidth = 4

        .Range("E1").ColumnWidth = 22

        .Range("F1").ColumnWidth = 38

        With .PageSetup

            .LeftFooter = "&8KaBu-2025"

            .RightFooter = "&D , &T"

            .LeftMargin = Application.InchesToPoints(0.31496062992126)

            .RightMargin = Application.InchesToPoints(0.31496062992126)

            .TopMargin = Application.InchesToPoints(0.393700787401575)

            .BottomMargin = Application.InchesToPoints(0.393700787401575)

            .HeaderMargin = Application.InchesToPoints(0.31496062992126)

            .FooterMargin = Application.InchesToPoints(0.31496062992126)

            .PrintHeadings = False

            .PrintGridlines = False

            .PrintComments = xlPrintNoComments

            .CenterHorizontally = True

            .CenterVertically = False

            .Orientation = xlPortrait

            .Draft = False

            .PaperSize = xlPaperA4

            .FirstPageNumber = xlAutomatic

            .Order = xlDownThenOver

            .BlackAndWhite = False

            .Zoom = False

            .FitToPagesWide = 1

            .FitToPagesTall = False

            .PrintErrors = xlPrintErrorsDisplayed

            .OddAndEvenPagesHeaderFooter = False

            .DifferentFirstPageHeaderFooter = False

            .ScaleWithDocHeaderFooter = True

            .AlignMarginsHeaderFooter = True

        End With

    End With

End Sub

Gruß Uwe

AW: Laufzeitfehler 1004 Methode Printcommun. fehlgeschlagen

28.05.2025 11:28:14

Ringberger

Hallo Uwe,

vielen, vielen Dank. Es funktioniert prima. Jetzt muss ich nur den Code anfügen, dass sich auch im Seitenlayout die Ausrichtung auf Querformat einstellt. Werde ich mal versuchen.

VG

Andreas

Laufzeitfehler 1004 Methode Printcommun. fehlgeschlagen

Forumthread: Laufzeitfehler 1004 Methode Printcommun. fehlgeschlagen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread