yangjianlang 发表于 2015-12-23 01:30:00

TX ActiveX获取本机所有打印机名称及句柄该用哪个函数？

TX ActiveX获取本机所有打印机名称及句柄该用哪个函数？麻烦版主指导，谢谢！

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

procedure TForm1.Print1Click(Sender: TObject);
var wPages, No : Integer;
begin
   wPages := TXTextControl1.CurrentPages;
   Printer.BeginDoc;
   for No := 1 To wPages do begin
      TXTextControl1.PrintDevice := Printer.Canvas.Handle;
      TXTextControl1.PrintPage(No);
      if No <> wPages then
         Printer.NewPage;
   end;
   Printer.EndDoc;
end;
页: [1]
查看完整版本: TX ActiveX获取本机所有打印机名称及句柄该用哪个函数？