Orientation.Landscape - Connect to printer

I made a macro where I
- open a Word document
- copy/paste a Excel table

I don't need to print the document, it's only to show the data and to give the user the possibility to print or create a pdf (max 5%)

When I change the orientation of the Word-doc (.PageSetup.Orientation = xlLandscape) then it hangs for a while when the printert is not switched on

The reason is that Word is trying to "connecting to printer" (the message can be seen in the left bottom corner in blue)

Thanks for helping me out

Yes,
I created a Breakpoint just before the line and
on <F8> you see in the Word document the message in the left bottom corner in blue "connecting to printer".
More, if the printer is switched on, everything works perfect

Is there any code to block for "connecting to printer" and once the pagesetup is set
then to reconnect to the printer?

Thanks.
Application.PrintCommunication doesn't solve the problem
As soon as it arrives at the command "Pagesetup", it hangs for 30'
As I mentioned, you see a message "connecting to printer, Press ESC to cancel" (the message can be seen in the left bottom corner in blue)
If you press ESC the macro immediatly continues to run

Thanks.
The difference is it doesn't show the blue message (Connecting to printer...) at the bottom of the word page but it still hangs

Try programmatically changing the default printer in Word (not Excel) to, for example, Microsoft Print to PDF, then issue a command to change the page orientation and finally restore the default printer.

Artik

Thanks Artik.

The code
<< Application.ActivePrinter = "Microsoft Print to PDF" >>
gives error 1004 (Method 'activeprinter' of object '_Application' failed

With the code
<< Application.ActivePrinter = "Microsoft Print to PDF on Ne01:" >>
I have no error but it doesn't work (it hangs for ± 20 sec)

I just tried to deactivate the wifi connection. This works perfect.
...But I have not the knowledge how to de- and reactivate the wifi connection with vba

Perhaps you could help me out with that.
That would solve the whole issue

Thanks

What about

Please Login or Register  to view this content.

Thanks.
This works fine.
The only disadvantage is that when at the end I reset the active Printer to the default one
<< WA.ActivePrinter = "Brother DCP-L3510CDW series" >> it hangs again

Maybe check if it's available first.

Please Login or Register  to view this content.

Thanks a lot
This is the solution
Thanks to everyone who was helpfull to solve the problem
I appreciate

Originally Posted by Helivwe

The code
<< Application.ActivePrinter = "Microsoft Print to PDF" >>
gives error 1004 (Method 'activeprinter' of object '_Application' failed

Both applications (Excel and Word) have the same commands when it comes to setting/reading the active printer. They differ “only” in the way they are called.
If you ran in Excel code

Please Login or Register  to view this content.

then it applies to Excel. And in Excel, to set the active printer, in addition to the name of the printer, you need to specify the name of the port. In Word, the port name is not required.

Originally Posted by Helivwe

I just tried to deactivate the wifi connection. This works perfect.
...But I have not the knowledge how to de- and reactivate the wifi connection with vba

Try it, but I do not guarantee success.

Please Login or Register  to view this content.

Artik

I'm sorry.
I tought it was working with the solution of ByteMarks but I didn't noticed someone switched the printer on.
The code is perfect, you can change .Orientation = wdOrientLandscape but
once you set the printer back <<... Then .ActivePrinter = myPrinter>>it hangs because at that time it tries to find the printer:
It shows the blue message (Connecting to printer...)

try
set Application.PrintCommunication to false and set it back to true at the end.
e.g

Please Login or Register  to view this content.

and see if this runs faster.

Until now I tried:

Please Login or Register  to view this content.

The result of the function <<PrinterOnline(sPrinter$)>> is always True, whether the printer is switched on or not
On <<.ActivePrinter = myPrinter>> it hangs

You said that temporarily disabling WiFi accelerated the execution of the code. Have you tried implementing the code from post #18?


Still another solution, although a bit inconvenient for the user, might be to switch the active printer programmatically to “Microsoft Print to PDF” without restoring the previous one. The command

Please Login or Register  to view this content.

switches the printer for this Word session only (it does not affect the Win sytem settings). The disadvantage of the solution is that when the user actually wants to print the document, he will have to choose the correct printer himself.

Artik

Thanks.
The purpose of the macro is to use it for people people who don't know how how to mange those things

I see as soon as you use the ".PageSetup" it tries to find the printer.
With “Microsoft Print to PDF” I pospone the problem