Exibir e selecionar impressoras instaladas

Question

Algu�m sabe como fazer para exibir todas as impressoras instaladas e selecionar uma delas para impress�o.Valeu galera...

Deus · Answer

Bem, digamos que voc� queira listar todas as impressoras dispon�veis num ComboBox. Para tal, voc� cria uma fun��o chamada [i:c289a63096]slListaImpressoras[/i:c289a63096], que fica assim:

function slListaImpressoras: TStringList;
var
      i: Integer;
  slTmp: TStringList;
begin
  slTmp := TStringList.Create;
  for i := 0 to Pred(Printer.Printers.Count) do
    slTmp.Add(Printer.Printers[i]);

  Result := slTmp;
end;

A�, quando o Formul�rio que tem este ComboBox for ser ativado, � s� colocar no OnActivate o seguinte c�digo:

ComboBox1.Items := slListaImpressoras;

J� para mudar a impressora padr�o, crie o seguinte procedimento:

procedure MudaImpressora(index: integer);
var
  szPrinterName, szIniInfo, szSection: PChar ;
begin
  try
   GetMem(szPrinterName, SizeOf(Char) * 256);
   GetMem(szIniInfo, SizeOf(Char) * 256);
   GetMem(szSection, 10);

   if (Pos(�on�, Printer.Printers[index]) = 0) then
     StrPCopy(szPrinterName,
              Copy(Printer.Printers[index], 1,
              Length(Printer.Printers[index])))
   else
     StrPCopy(szPrinterName,
              Copy(Printer.Printers[index], 1,
              Pos(�on�, Printer.Printers[index]) - 2 ));
   GetProfileString(�DEVICES�, szPrinterName, nil, szIniInfo, 254);
   if szIniInfo^ <> 0 then
     begin
     StrCat(szPrinterName, �,�);
     StrCat(szPrinterName, szIniInfo);
     WriteProfileString(�Windows�, �DEVICE�, szPrinterName);
     StrCopy(szSection, �Windows�);
     PostMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(szSection));
   end ;
   FreeMem(szPrinterName, SizeOf(Char) * 256);
   FreeMem(szIniInfo, SizeOf(Char) * 256);
   FreeMem(szSection, 10) ;
 except
   on E: EOutOfMemory do ShowMessage(E.Message);
   on E: EInvalidPointer do ShowMessage(E.Message);                    
 end ;
end;

Agora, no OnClick do seu ComboBox, � s� fazer:

MudaImpressora(ComboBox1.ItemIndex)

Lembrando que, ao mudar a impressora padr�o, voc� talvez queira depois restaurar o estado inicial, ent�o eu criei essa fun��o para retornar o �ndice da impressora padr�o atual:

function IndiceDefaultPrinter: Integer;
begin
  Result := Printer.PrinterIndex;
end;

Agora, � s� voc�, ao ativar o form, guardar o valor dessa fun��o num inteiro qualquer e, ao terminar a aplica��o, usar o procedimento MudaImpressora com o valor guardado original. F�cil, n�? :)

Espero ter ajudado! :) Abra�os, dEUS.

Deus · Answer

Eu s� queria fazer uma corre��o no c�digo, para que ele ficasse sem erros pois, fazendo uma revis�o mental depois, eu vi que havia a possibilidade de, havendo uma impressora �Epson�, por exemplo, dar um erro. Desta forma, onde voc� l�

   if (Pos(�on�, Printer.Printers[index]) = 0) then 
     StrPCopy(szPrinterName, 
              Copy(Printer.Printers[index], 1, 
              Length(Printer.Printers[index]))) 
   else 
     StrPCopy(szPrinterName, 
              Copy(Printer.Printers[index], 1, 
              Pos(�on�, Printer.Printers[index]) - 2 ));

troque por

   if (Pos(� on �, Printer.Printers[index]) = 0) then 
     StrPCopy(szPrinterName, 
              Copy(Printer.Printers[index], 1, 
              Length(Printer.Printers[index]))) 
   else 
     StrPCopy(szPrinterName, 
              Copy(Printer.Printers[index], 1, 
              Pos(� on �, Printer.Printers[index]) - 1 ));

Uma mudan�a bem pequena, apenas adicionando espa�os antes e depois do �on�, para que ele virasse � on �, e trocando o - 2 da �ltima linha por - 1. Ah, e n�o esque�a de adicionar [b:b74ab72f74]printers[/b:b74ab72f74] na cl�usula [i:b74ab72f74]uses[/i:b74ab72f74]. :) Era s� isso, ok? ;) Espero ter ajudado!