2017年3月24日
（转）设置默认打印机
摘要： type TForm1 = class(TForm) Button1: TButton; ComboBox1: TComboBox; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); pri 阅读全文
posted @ 2017-03-24 21:46 纸上年华 阅读(442) 评论(0) 推荐(0) 编辑
Delphi 打印 Tprinter
摘要： 打印 打印对于许多 Windows 程序员来说是十分棘手的问题。 Delphi 简化了打印时用户所必须了解的大部分内容。用户可以很轻松地写出简单的打印程序来输出文本和位图化了的图像。对于更为复杂的打印，仅需了解几个要领和技术，用户就可以实现任何类型的自定义打印。当了解了这些后，打印也就不那么困难了。 阅读全文
posted @ 2017-03-24 00:10 纸上年华 阅读(1256) 评论(0) 推荐(0) 编辑
Delphi7通过SendMessage来实现默认打印机的切换
摘要： 具体代码 procedure SetDefaultPrinter(NewDefPrinter: string); var ResStr: array[0..255] of Char; begin StrPCopy(ResStr, NewdefPrinter); WriteProfileString( 阅读全文
posted @ 2017-03-24 00:08 纸上年华 阅读(1272) 评论(0) 推荐(0) 编辑