Question

delphi中怎么选择电脑中不同的打印机打印？

Answer 1

1、delphi中，打印机选择如下：

var 

mdevice : array[0..255] of char; 

mdriver : array[0..255] of char; 

mport : array[0..255] of char; 

mhdmode : thandle; 

mpdmode : pdevmode; 

begin 

printer.getprinter(mdevice, mdriver, mport, mhdmode); 

printer.setprinter('fineprint pdffactory pro', mdriver, mport, mhdmode); //设置打印机

printer.begindoc; 

printer.canvas.moveto(0, 0);   

printer.canvas.lineto(300, 300); 

printer.canvas.textout(20, 20, '打印文字'); 

printer.enddoc; 

end;

2、显示默认打印机

ComboBox1.Text:=printer.Printers[printer.printerindex] 

Tprinter.printers.count可以得到打印机数

Tprinter.printers可以得到打印机列表

Tprinter.printerINDEX可以设当前打印机

Tprinter.printerINDEX:=-1可以恢复默认打印机

3、Delphi枚举出系统所有的打印机

在uses中包含prints

procedure Tprintsetform.FormShow(Sender: TObject);  //获取系统所有打印机

begin

Memo1.Clear;

memo1.Lines.Assign(Printer.Printers);

if trim(memo1.Text) = '' then

begin

showmessage('没有安装打印机！');

end;

end;