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

Delphi获取系统打印机设置

在dialog->prints->printersetupdialog1增加这个控件

在程序中printersetupdialog1.execute就可以看到打印机设置的信息了

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;

关于delphi中如何判断有无默认打印机?

 uses printers; 

if (printer.Printers.Count=0) then 

     未安装打印机 

else 

     安装了Printers.printers.count台打印机； 

当系统打印机数不为0时，必定有一台是被默认的； 反过来说，如果 printer.Printers.Count=0//系统没有安装任何打印机 则没有默认打印机

显示默认打印机

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

Tprinter.printers.count可以得到打印机数
Tprinter.printers可以得到打印机列表
Tprinter.printerINDEX可以设当前打印机
Tprinter.printerINDEX:=-1可以恢复默认打印机

跳过预览，直接打印

frxReport1.PrintOptions.ShowDialog := False;
frxReport1.Print;

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;

//////////////////////////////////////////////////////////////////////////////////////////////////////////////

1.取得所有安装在本机上的打印机：

procedure TForm1.GetPrinterNames;
var
 buffer: TPrinterBuffer;
 currPos,n: integer;
 printerName: string;
begin
 PrinterNames.Free;
 PrinterNames := TStringList.Create;
 if GetProfileString(PChar('PrinterPorts'), nil, '', buffer, MAXPRINTERBUFFER) > 0 then
 begin
   currPos := 0;
   n := 0;
   while (true) do
     begin
       n := n + 1;
       printerName := ParseNames(buffer, currPos);
       if printerName <> '' then
       begin
          printerName := IntToStr(n) + ': ' + PrinterName;
          PrinterNames.Add(printerName);
       end else
       break;
   end;
 end;
end;

function TForm1.ParseNames(const namebuffer: TPrinterBuffer;
 var startPos: integer): string;
var
 i, j, NameLength: integer;
 str: string;
begin
 result := '';
 if (startPos > High(namebuffer)) or (namebuffer[startPos] = Chr(0)) then
   exit;
 for i := startPos to High(namebuffer) do
 begin
    if namebuffer[i] = Chr(0) then
    begin
       nameLength := i - startPos;
       SetLength(str, nameLength);
       for j := 0 to nameLength - 1 do
       str[j+1] := namebuffer[startPos + j];
       result := str;
       startPos := i + 1;
       break;
   end;
 end;
end;

2.设置打印机为默认打印机：

function TForm1.SetDefaultPrinter(const PrinterName: String): boolean;
var
 s2 : string;
 dum1 : Pchar;
 xx, qq : integer;
const
 cs1 : pchar = 'Windows';
 cs2 : pchar = 'Device';
 cs3 : pchar = 'Devices';
 cs4 : pchar = #0;
begin
 try
   xx := 254;
   GetMem( dum1, xx);
   Result := False;
   qq := GetProfileString(cs3,pchar(printerName), #0, dum1, xx);
   if (qq > 0)and(trim(strpas(dum1)) <> '')then
   begin
     s2 := PrinterName + ',' + strpas(dum1);
     while GetProfileString(cs1, cs2, cs4, dum1, xx) > 0 do
       WriteProfileString( cs1, cs2, #0);
     WriteProfileString( cs1, cs2, pchar(s2));
     Result := True;
  end;
 finally
    FreeMem(dum1);
 end;
end;

---

修改默认打印机的方法在不太频繁更换打印机的时候是可行的,但是如果要频繁跟换打印机就不太适合了,跟改一下默认打印机操作系统处理时间挺长,容易暂停程序!