Existe Alguma funcao para pegar a impressora Padrao do Windows no Lazarus ?

[adilsonpazzini]

Estava usando essa função no Delphi7

  function GetDefaultPrinterName : string;
  begin
   if(Printer.PrinterIndex >= 0)then
     begin
     Result := Printer.Printers[Printer.PrinterIndex];
     end
   else
     begin
     Result := 'Nenhuma Impressora Detectada';
     end;
   end;

Ao trazer para Lazarus não funcionou .. andei pesquisando na NET mais não achei nada .. alguém tem ai alguma função pra pegar qual impressora default no Windows .ou ate se existe algo assim pra mult-plataforma .

Sem mais ,


Adilson Pazzini .

[Rafael Dias]

http://forum.lazarus.freepascal.org/index.php?topic=34739.0

[adilsonpazzini]

Rafael ... Obrigado ... velho . eu ate errei . na verdade era a funcao de Set .. mais ache aqui e nos meus testes deu certo ..

SetDefaultPrinter

//procedure SetDefaultPrinter(PrinterName: String);
//var
//  I: Integer;
//  Device : PChar;
//  Driver : Pchar;
//  Port : Pchar;
//  HdeviceMode: Thandle;
//  aPrinter : TPrinter;
//begin
//  Printer.PrinterIndex := -1;
//  getmem(Device, 255);
//  getmem(Driver, 255);
//  getmem(Port, 255);
//  aPrinter := TPrinter.create;
//  for I := 0 to Printer.printers.Count-1 do
//  begin
//  if Printer.printers = PrinterName then
//  begin
//  aprinter.printerindex := i;
//  aPrinter.getprinter;
//  (device, driver, port, HdeviceMode);
//  StrCat(Device, ',');
//  StrCat(Device, Driver );
//  StrCat(Device, Port );
//  WriteProfileString('windows', 'device', Device);
//  StrCopy( Device, 'windows' );
//  SendMessage(HWND_BROADCAST, WM_WININICHANGE,
//  0, Longint(@Device));
//  end;
//  end;
//  Freemem(Device, 255);
//  Freemem(Driver, 255);
//  Freemem(Port, 255);
//  aPrinter.Free;
//end;                

Montei com essa funcao ...

procedure SetDefaultPrinter(const PrinterName: String);
begin
 Printers.Printer.SetPrinter(PrinterName);
end;

 

 

Mais Valeuuu ....

[Rafael Dias]

no topico que passei também tem como setar a impressora default por nome e por index.

[adilsonpazzini]

Valeu Rafael .. ajudo pra caramba ... obrigadooooo