Excel PrintOut() Help

[wbenhart]

I have look at the examples in other posts, but still don't quite understand what I'm doing wrong.

Can someone look at this and tell me what I'm doing wrong?


DEFINE VARIABLE ch-Excel AS COM-HANDLE.
DEFINE VARIABLE ch-Workbook AS COM-HANDLE.
DEFINE VARIABLE ch-Worksheet AS COM-HANDLE.

CREATE "Excel.Application" ch-Excel NO-ERROR.
ch-WorkSheet = ch-Excel:Sheets:Item(1).
ch-Excel:WorkBooks:OPEN ("P:\P2000SQL\Forms\WARRANTY CLAIM FORM.xls").

ch-Excel:VISIBLE = TRUE.
ch-WorksheetrintOut(1,1,1,FALSE,SESSIONRINTER-NAME,FALSE, FALSE).
ch-Excel:QUIT().

RELEASE OBJECT ch-WorkSheet.
RELEASE OBJECT ch-WorkBook.
RELEASE OBJECT ch-Excel.

Thank you for your help.

 

[wbenhart]

I figured it out......

If anyone was intrested here was the fix:

DEFINE VARIABLE ch-Excel AS COM-HANDLE.
DEFINE VARIABLE ch-Worksheet AS COM-HANDLE.

CREATE "Excel.Application" ch-Excel NO-ERROR.
ch-Excel:WorkBooks:OPEN ("P:\P2000SQL\Forms\WARRANTY CLAIM FORM.xls").
ch-WorkSheet = ch-Excel:Sheets:Item(1).

ch-WorksheetrintOut(1,1,1,FALSE,SESSIONRINTER-NAME,FALSE, FALSE).
ch-excelisplayAlerts = FALSE.
ch-Excel:QUIT().

IF VALID-HANDLE(ch-WorkSheet) THEN RELEASE OBJECT ch-WorkSheet.
IF VALID-HANDLE(ch-Excel) THEN RELEASE OBJECT ch-Excel.

Thanks....