Kbase P24003: 4GL/ABL: How to change the Page Orientation in MS Excel?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
02/02/2009 |
|
Status: Verified
GOAL:
4GL/ABL: How to change the Page Orientation in MS Excel?
GOAL:
How to programmatically change the Microsoft Excel Page Orientation using 4GL/ABL?
FACT(s) (Environment):
Windows
Progress 8.x
Progress 9.x
OpenEdge 10.x
OpenEdge Language Category: ActiveX
FIX:
The following code demonstrates how to change the Microsoft Excel Page Orientation:
DEFINE VARIABLE vchExcel AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE vchWorksheet AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE vchWorkbook AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE vchPageSetup AS COM-HANDLE NO-UNDO.
CREATE "Excel.Application":U vchExcel.
ASSIGN
vchExcel:VISIBLE = TRUE
vchWorkbook = vchExcel:Workbooks:Add()
vchWorksheet = vchWorkbook:Worksheets(1)
vchPageSetup = vchWorksheet:PageSetup
vchPageSetup:Orientation = 2. /*xlPortrait = 1 xlLandscape = 2 */
IF VALID-HANDLE(vchPageSetup) THEN
RELEASE OBJECT vchPageSetup.
IF VALID-HANDLE(vchWorkSheet) THEN
RELEASE OBJECT vchWorkSheet.
IF VALID-HANDLE(vchWorkBook) THEN
RELEASE OBJECT vchWorkBook.
IF VALID-HANDLE(vchExcel) THEN
RELEASE OBJECT vchExcel.