topic Re: Specifying a Printer in Application Development and Automation Discussions

Specifying a Printer

romolo — Sun, 06 Jan 2013 15:59:52 GMT

Hi Everyone,

I am trying to print my Excel worksheet to a specific printer like a local one on my machine or to a network printer, but having no luck. Could someone please tell me how I could change my code below to print to specific printers like "Printer1" on my LPT1 port and also to a network printer like "Printer 2" on \\Server2?

Many thanks in advance.

REPORT YTEST_EXCEL09.

INCLUDE OLE2INCL .

DATA: E_APPL TYPE OLE2_OBJECT,

E_WORK TYPE OLE2_OBJECT,

E_SHEET TYPE OLE2_OBJECT.

* Start the application

CREATE OBJECT E_APPL 'EXCEL.APPLICATION'.

SET PROPERTY OF E_APPL 'VISIBLE' = 0.

* Open the file

CALL METHOD OF E_APPL 'WORKBOOKS' = E_WORK.

CALL METHOD OF E_WORK 'OPEN'

EXPORTING

#1 = 'c:\test.xls'.

CALL METHOD OF E_APPL 'ACTIVESHEET' = E_SHEET .

CALL METHOD OF E_SHEET 'PRINTOUT'

EXPORTING

#01 = 1 "From

#02 = 1 "To

#03 = 3. "Copies

* Close the file

CALL METHOD OF E_WORK 'close'.

* Quit the file

CALL METHOD OF E_APPL 'QUIT'.

Re: Specifying a Printer

RaymondGiuseppi — Sun, 06 Jan 2013 17:03:52 GMT

Use the 5th parameter of method Worksheets.PrintOut it is the printer name, 4th is preview.(ref : Worksheets.PrintOut Method (Excel))

Regards,

Raymond

Re: Specifying a Printer

romolo — Sun, 06 Jan 2013 18:33:03 GMT

Thanks, Raymond. I tried adding the 5th parameter using the syntax below (highlighted in blue), but couldn't get it to work: nothing prints, not even from the system default printer. Any ideas?

CALL METHOD OF E_SHEET 'PRINTOUT'

EXPORTING

#01 = 1 "From

#02 = 1 "To

#03 = 3. "Copies

#05 = 'Printer1 on LPT1:'.

Re: Specifying a Printer

RaymondGiuseppi — Sun, 06 Jan 2013 18:44:31 GMT

Try to give a false value to 4th parameter (preview).

Regards,

Raymond

Re: Specifying a Printer

romolo — Sun, 06 Jan 2013 19:13:32 GMT

I tried adding #04 = 'X' but it was the same.

Re: Specifying a Printer

RaymondGiuseppi — Sun, 06 Jan 2013 19:26:03 GMT

Then try to record a macro in your version of Excel and anlayze the vb source generated.

Re: Specifying a Printer

romolo — Sun, 06 Jan 2013 19:57:54 GMT

I took the 05 parameter (printer name) 'Printer1 on LPT1:' form the vb source

Re: Specifying a Printer

RaymondGiuseppi — Sun, 06 Jan 2013 20:55:47 GMT

You could else try to use method ActivePrinter of Workbook before printout ?

Re: Specifying a Printer

romolo — Mon, 07 Jan 2013 12:49:03 GMT

I figured it out: your initial suggestion of using a 4th parameter worked perfectly. I just had to use a valid value for that parameter. In the end, the final code that worked is as below.

Thanks again for your help!

CALL METHOD OF E_SHEET 'PRINTOUT'

EXPORTING

#01 = 1 "From

#02 = 1 "To

#03 = 3 "Copies

#04 = 0 "Preview

#05 = 'Printer1 on LPT1:'. "ActivePrinter

Re: Specifying a Printer

RaymondGiuseppi — Mon, 07 Jan 2013 12:51:37 GMT

Was a typo from mine : "a false value" for "a value of false" misled you ...