找回密码
 立即注册

QQ登录

只需一步,快速开始

yangjianlang
初级会员   /  发表于:2015-12-23 01:29  /   查看:4183  /  回复:3
TX ActiveX获取本机所有打印机名称及句柄该用哪个函数?麻烦版主指导,谢谢!

3 个回复

倒序浏览
gw0506
超级版主   /  发表于:2015-12-23 10:25:00
沙发
TX没有这个功能。你可以查查windows的相关文档,找一下如何获取外设名称。
回复 使用道具 举报
yangjianlang
初级会员   /  发表于:2015-12-23 21:56:00
板凳
回复 2楼gw0506的帖子

TXTextControl.PrintDevice [= DeviceContextHandle]
那请问上述这句该如何赋值?这个打印设备句柄该如何知晓?
回复 使用道具 举报
gw0506
超级版主   /  发表于:2015-12-24 10:00:00
地板
  1. procedure TForm1.Print1Click(Sender: TObject);
  2. var wPages, No : Integer;
  3. begin
  4.    wPages := TXTextControl1.CurrentPages;
  5.    Printer.BeginDoc;
  6.    for No := 1 To wPages do begin
  7.       TXTextControl1.PrintDevice := Printer.Canvas.Handle;
  8.       TXTextControl1.PrintPage(No);
  9.       if No <> wPages then
  10.          Printer.NewPage;
  11.    end;
  12.    Printer.EndDoc;
  13. end;
复制代码
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部