vfp9終結(jié)一直以來的打印紙張?jiān)O(shè)置

1、vfp9終結(jié)一直以來的打印紙張?jiān)O(shè)置終結(jié)一直以來的打印紙張?jiān)O(shè)置vfp9終結(jié)一直以來的打印紙張?jiān)O(shè)置vfp9終結(jié)一直以來的打印紙張?jiān)O(shè)置vfp9終結(jié)一直以來關(guān)于打印紙張?jiān)O(shè)置過程名稱：MyRept.prg調(diào)用方式：MyRept(ReptNameHeightWidth)當(dāng)Height和Width為空時(shí)，默認(rèn)A4紙程序原創(chuàng)：dupeiji最后修改：pnyjq修改日期：20050323待解決問題：當(dāng)ListenerType=1時(shí)無(wú)法正常預(yù)覽Parame

2、terslcFRXnHeightnWidthLocalleptListenerIfEmpty(lcFRX)ReturnEndifleptListener=Createobject(“Test“)#DEFINEA4_Height29.7#DEFINEA4_Width21leptListener.sHeight=Icase(Empty(nHeight)A4_HeightnHeight)leptListener.sWidth=Icase(Em

3、pty(nWidth)A4_WidthnWidth)ReptFm(lcFRX)ObjectleptListenerDefineClassTestAsReptListenerListenerType=0sHeight=0ProcedureGetPageHeight()IfThis.sHeight0ReturnThis.sHeight377.95ElseReturnDoDefault()EndifEndprocsWidth=0Procedu

4、reGetPageWidth()IfThis.sWidth0ReturnThis.sWidth377.95ElseReturnDoDefault()EndifEndprocProcedureOutputPage(nPageNoeDevicenDeviceTypenleftnTopnWidthnHeight)t_sHeight=This.sHeightThis.sHeight=0nHeight=t_sHeight377.95nHeight

5、This.GetPageHeight()This.sHeight=t_sHeightt_sWidth=This.sWidthThis.sWidth=0nWidth=t_sWidth377.95nWidthThis.GetPageWidth()This.sWidth=t_sWidthDoDefault(nPageNoeDevicenDeviceTypenleftnTopnWidthnHeight)NodefaultEndprocEndde