Excel 13 crash when printing via userform

%3CLINGO-SUB%20id%3D%22lingo-sub-2330194%22%20slang%3D%22de-DE%22%3EExcel%2013%20crash%20when%20printing%20via%20userform%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2330194%22%20slang%3D%22de-DE%22%3E%3CP%3EHello%20dear%20friends.%3C%2FP%3E%3CP%3Ehave%20a%20mysterious%20problem.%20%3CBR%20%2F%3E%20the%20following%20code%20is%20in%20module.%3CBR%20%2F%3EIs%20even%20a%20macro%20generated%20by%20excel%20for%20printing.%3C%2FP%3E%3CP%3EIt%20works%20fine%20until%20you%20give%20the%20print%20command%20via%20a%20userform.%3CBR%20%2F%3EThen%20there%20are%20sometimes%20automation%20errors%2C%20sometimes%20not%20enough%20memory%20and%20mostly%20a%20total%20crash.%3C%2FP%3E%3CP%3EI%20tried%20to%20get%20every%20line%20out%20and%20tried%20again.%3C%2FP%3E%3CP%3EIf%20the%20line%20with%20%22.Orientation%20%3D%20xlLandscape%22%20is%20present%2C%20it%20crashes%20immediately.%3C%2FP%3E%3CP%3EWhat%20can%20be%20the%20cause%3F%3CBR%20%2F%3EHas%20anyone%20perhaps%20had%20something%20like%20this%20before%3F%3C%2FP%3E%3CP%3EI%20can't%20get%20any%20further%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-applescript%22%3E%3CCODE%3ESub%20print_Standart()%0A%20%0A%20%20%20%20Application.PrintCommunication%20%3D%20False%0A%20%20%20%20%20%20With%20ThisWorkbook.Sheets(%22Standart%22).PageSetup%0A%20%20%20%20%20%20%20%20.PrintTitleRows%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.PrintTitleColumns%20%3D%20%22%22%0A%20%20%20%20%20%20End%20With%0A%20%20%20%20%20%0A%20%20%20%20Application.PrintCommunication%20%3D%20True%0A%20%20%20%20ActiveSheet.PageSetup.PrintArea%20%3D%20%22%24B%242%3A%24Z%2480%22%0A%20%20%20%20Application.PrintCommunication%20%3D%20False%0A%20%20%20%0A%0A%20%20%20%20With%20ThisWorkbook.Sheets(%22Standart%22).PageSetup%0A%20%20%20%20%20%20%20%20.LeftHeader%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.CenterHeader%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.RightHeader%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.LeftFooter%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.CenterFooter%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.RightFooter%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.LeftMargin%20%3D%20Application.InchesToPoints(0)%0A%20%20%20%20%20%20%20%20.RightMargin%20%3D%20Application.InchesToPoints(0)%0A%20%20%20%20%20%20%20%20.TopMargin%20%3D%20Application.InchesToPoints(0)%0A%20%20%20%20%20%20%20%20.BottomMargin%20%3D%20Application.InchesToPoints(0)%0A%20%20%20%20%20%20%20%20.HeaderMargin%20%3D%20Application.InchesToPoints(0)%0A%20%20%20%20%20%20%20%20.FooterMargin%20%3D%20Application.InchesToPoints(0)%0A%20%20%20%20%20%20%20%20.PrintHeadings%20%3D%20False%0A%20%20%20%20%20%20%20%20.PrintGridlines%20%3D%20False%0A%20%20%20%20%20%20%20%20.PrintComments%20%3D%20xlPrintNoComments%0A%20%20%20%20%20%20%20%20.CenterHorizontally%20%3D%20False%0A%20%20%20%20%20%20%20%20.CenterVertically%20%3D%20False%0A%20%20%20%20%20%20%20%20.Orientation%20%3D%20xlLandscape%0A%20%20%20%20%20%20%20%20.Draft%20%3D%20False%0A%20%20%20%20%20%20%20%20.FirstPageNumber%20%3D%20xlAutomatic%0A%20%20%20%20%20%20%20%20.Order%20%3D%20xlDownThenOver%0A%20%20%20%20%20%20%20%20.BlackAndWhite%20%3D%20False%0A%20%20%20%20%20%20%20%20.Zoom%20%3D%20False%0A%20%20%20%20%20%20%20%20.FitToPagesWide%20%3D%201%0A%20%20%20%20%20%20%20%20.FitToPagesTall%20%3D%201%0A%20%20%20%20%20%20%20%20.PrintErrors%20%3D%20xlPrintErrorsDisplayed%0A%20%20%20%20%20%20%20%20.OddAndEvenPagesHeaderFooter%20%3D%20False%0A%20%20%20%20%20%20%20%20.DifferentFirstPageHeaderFooter%20%3D%20False%0A%20%20%20%20%20%20%20%20.ScaleWithDocHeaderFooter%20%3D%20True%0A%20%20%20%20%20%20%20%20.AlignMarginsHeaderFooter%20%3D%20True%0A%20%20%20%20%20%20%20%20.EvenPage.LeftHeader.Text%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.EvenPage.CenterHeader.Text%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.EvenPage.RightHeader.Text%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.EvenPage.LeftFooter.Text%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.EvenPage.CenterFooter.Text%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.EvenPage.RightFooter.Text%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.FirstPage.LeftHeader.Text%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.FirstPage.CenterHeader.Text%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.FirstPage.RightHeader.Text%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.FirstPage.LeftFooter.Text%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.FirstPage.CenterFooter.Text%20%3D%20%22%22%0A%20%20%20%20%20%20%20%20.FirstPage.RightFooter.Text%20%3D%20%22%22%0A%20%20%20%20End%20With%0A%20%20%20%0A%20%20%20%20Application.PrintCommunication%20%3D%20True%0A%20%20%20%20ActiveWindow.SelectedSheets.PrintOut%20Copies%3A%3D1%2C%20Collate%3A%3DTrue%2C%20IgnorePrintAreas%3A%3DFalse%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-2330194%22%20slang%3D%22de-DE%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E
Occasional Visitor

Hello dear friends.

have a mysterious problem.
the following code is in module.
Is even a macro generated by excel for printing.

It works fine until you give the print command via a userform.
Then there are sometimes automation errors, sometimes not enough memory and mostly a total crash.

I tried to get every line out and tried again.

If the line with ".Orientation = xlLandscape" is present, it crashes immediately.

What can be the cause?
Has anyone perhaps had something like this before?

I can't get any further

 

 

 

Sub print_Standart()
 
    Application.PrintCommunication = False
      With ThisWorkbook.Sheets("Standart").PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
      End With
     
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = "$B$2:$Z$80"
    Application.PrintCommunication = False
   

    With ThisWorkbook.Sheets("Standart").PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
   
    Application.PrintCommunication = True
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

 

 

0 Replies