&&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