|
印表參數讀取程式
張貼日期 2009/3/5 11:57:23
作者 lutuni
|
&&TABLE=REPE.Name 以不同報表作更改
ASSIGN(TABLE.DefaultPrinter,"None")
SELECT SETPRINT
SEEK WHOAMI()
IF !EOF()
IF PRINT2.Combo3.Text="Y"
&&ASSIGN(TABLE.DefaultPrinter,SETPRINT->PRINTER1)
ASSIGN(TABLE.DefaultPaperSize,SETPRINT->REP_HALF)
ASSIGN(TABLE.DispPercent,100)
ELSE
ASSIGN(TABLE.DefaultPaperSize,SETPRINT->REP_ALL)
ASSIGN(TABLE.DispPercent,100)
ENDIF
ENDIF
PH 起始程序
TABLE=REPE.Name
ASSIGN(TABLE.Caption,"應收帳款報表<"+TABLE.DefaultPrinter+">")
出貨單
TABLE=REPE.Name &&以不同報表作更改
ASSIGN(TABLE.DefaultPrinter,"None")
ASSIGN(TABLE.Caption,"出貨單<"+TABLE.DefaultPrinter+">")
SELECT SETPRINT
SEEK WHOAMI()
IF !EOF()
ASSIGN(TABLE.DefaultPaperSize,SETPRINT->REP_HALF)
ASSIGN(TABLE.DispPercent,100)
ENDIF
|
|