EXCEL - ActiveSheet.PrintOut

[AChiado]

Hi all,

I create an excel object to automate Excel.
I can print my document with oMyExcelObject.ActiveSheet.PrintOut

but

how can I say excel what printer to use?
There is something like oMyExcelObject.ActiveSheet.SetPrinter("WindowsPrinterName&quot?

Now it send printer output to default printer.

Thank you all
Andrea C.P.
Italy

 

[Mike Gagnon]

You could set your printer before your automation. With:

SET PRINTER TO NAME GETPRINTER()
** You automation starts here

Mike Gagnon

 

[AChiado]

Hi Mike,

thank you for your reply.

I try to SET PRINTER TO NAME "&cMyPrinter"

but output goes always on default printer.

Where I'm wrong? Andrea C.P.
Italy

 

[ChrisRChamberlain]

AChiado

If you are going to print through automation, you either need to select the printer through the object or select the Windows printer before you instantiate the object.

Setting the printer through VFP won't have any effect as you are not printing under VFP's control. HTH

Chris

 

[ChrisRChamberlain]

AChiado

BTW, if you want a simple way to set a Windows printer download, setdefpr.exe from :-

http://www.jddesign.freeserve.co.uk/freeware_programs.htm

It's a massive 24KB!

To use :-

? SET("PRINTER",3) && Vfp default printer
? SET("PRINTER",2) && Windows default printer
lcPrinter = ["WinFax"]
! /N1 setdefpr &lcPrinter
HTH

Chris

 

[Mike Gagnon]

Andrea

I haven't tried this, put maybe if you about it more the "Windows" way and try this code:

loComDlg = CreateObject("MSComDlg.CommonDialog")
loComDlg.ShowPrinter()

See that solves your problem.

Mike Gagnon

 

[AChiado]

Hi,

Chris, Mike, thank you

I find the solution in VBAXL9.CHM.

The EXCEL PrintOut Method can have parameters.

espressione.PrintOut(From, To, Copies, Preview, ActivePrinter
, PrintToFile, PrToFileName, Collate)

so I can set mySelectedPrinter as a parameter. It works fine

Thank you again Andrea C.P.
Italy