VFP60自定义报表打印设置对话框.docVIP

自定义报表打印设置对话框 作者: 红虎 | 发布时间: 2001-1-31 | 最后更新: 2001-3-11 | 点击数: 7063 | 级别: 0 关键字: Visual FoxPro | 报表 说明：原有的VFP的打印设置框，应该说她没什么不好，只是有时她是系统提供的，我们很难对她进行一些认为的设置，所以也只能使用她的提供的功能，而她没提供的功能就很难去实现，或者不方便，因此针对此情况编写此程序用来替换系统的打印设置对话框，采用自定义的打印设置对话框。 提示：因为该文处于文章排版的需要，所以采用了汉字双字节的空格，而这些空格在程序中执行会提示错误，所以请将以下代码选择复制后，请再处理去掉其中包含的双字节空格，可用一些文字处理软件将双字节空格“　”全部替换为单字节空格！ *-- 程序名称：RptPrint.prg *-- 程序功能：以自定义的对话框显示报表的打印设置，以取代系统打印设置的一些不足 *-- 使用方法：RptPrint ( [] ) *　 　　或者：do RptPrint [ with ] *-- 程序说明：cReportName 为 报表文件名（无须带扩展名），如果省略的话，则可显示设置对话框 *　　　　　　 报表的扩展名以 frx 为准 *-- 原创作者：红虎 *-- 联系方式：E-mail: hu_feng@163.net　　 *　　　　　　 HomePage: *　　　　　　 Oicq: 1569040 *-- 编写日期：2001年1月 Func RptPrint para rptname *-- 创建打印设置对话框 oPrintSetup=createobject(printsetup) oPrintSetup.show *-- 定义打印设置对话框 DEFINE CLASS printsetup AS form 　　Top = 11 　　Left = 115 　　Height = 270 　　Width = 531 　　Desktop = .T. 　　DoCreate = .T. 　　Caption = 报表打印设置 　　Name = PRINTSETUP 　　*-- 新增属性 　　nxcoord = 0　　　　 可以使点击对话框就可以拖动的坐标 　　nycoord = 0 　　rptname = 　　 报表的文件名 　　ADD OBJECT shape1 AS shape WITH ; 　　　　Top = 12, ; 　　　　Left = 12, ; 　　　　Height = 144, ; 　　　　Width = 504, ; 　　　　Enabled = .F., ; 　　　　SpecialEffect = 0, ; 　　　　Name = Shape1 　　ADD OBJECT label1 AS label WITH ; 　　　　AutoSize = .T., ; 　　　　Caption = 打印机, ; 　　　　Height = 16, ; 　　　　Left = 22, ; 　　　　Top = 9, ; 　　　　Width = 38, ; 　　　　Name = Label1 　　*-- 存放目前安装的打印机的名称列表 　　ADD OBJECT printerlist AS combobox WITH ; 　　　　Alignment = 0, ; 　　　　Height = 22, ; 　　　　Left = 112, ; 　　　　Style = 2, ; 　　　　Top = 33, ; 　　　　Width = 260, ; 　　　　Name = PrinterList 　　ADD OBJECT label2 AS label WITH ; 　　　　AutoSize = .T., ; 　　　　Caption = 打印机名(\N)：, ; 　　　　Height = 16, ; 　　　　Left = 24, ; 　　　　Top = 36, ; 　　　　Width = 86, ; 　　　　Name = Label2 　　ADD OBJECT label3 AS label WITH ; 　　　　AutoSize = .T., ; 　　　　Caption = 状态：, ; 　　　　Height = 16, ; 　　　　Left = 24, ; 　　　　Top = 60, ; 　　　　Width = 38, ; 　　　　Name = Label3 　　ADD OBJECT label4 AS label WITH ; 　　　　AutoSize = .T., ; 　　　　Caption = 类型：, ; 　　　　Height