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;
 

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