Macro runs different when stepping through code

[SY24]

Greetings,

recently I programmed a macro thats supposed to print labels via our Dymo LabelWriter 450. It needs a special pagesize setup in VBA in order to work:

    With ActiveSheet.PageSetup
        .PaperSize = 220
    End With

Where 220 is the index of the pagesize for this printer. I verified that by recording a macro and setting the pagesize manually.

Running the macro on my machine works just fine. The pagesize is applied correctly and the text appears perfectly centered on the printed labels, as intended.

The actual problem occurs when running this macro on my colleague's machine (they have an identical Dymo printer connected). The text is shifted to almost outside the border of the label.

This does not happen however if I manually step through the macro (F8) on my colleague's machine. Then it prints the label just fine.

So I am somewhat confused at this point. I feel like the "PaperSize" parameter is skipped when running the macro normally. If there is anything I can try or should check, please let me know! Any help is greatly appreciated.

SY24

 

[bobsan42]

Try to include DoEvents after altering the PageSetup
and maybe: Application.PrintCommunication = True

 

[SY24]

Try to include DoEvents after altering the PageSetup
and maybe: Application.PrintCommunication = True

Hey bobsan,

thanks for the reply!
Setting Application.PrintCommunication = True right before the PageSetup code did the magic.
I didn't notice DoEvents to affect anything. What is it used for usually?

Greetings

 

[bobsan42]

I didn't notice DoEvents to affect anything. What is it used for usually?

It's a sort of cure for slower processes, which cannot catch-up with the rushing code. You basically tell the code to wait a moment so some bits of it get some more time to finish what they are doing e.g. updating statusbar or progress indicators.