Seleccion de Impresora por Defecto

[marcoszorrilla]

Yo guardo en un fichero INI las impresoras que se van a utilizar en la aplicación, configurable por el usuario, a continuación los fragmentos de código que utilizo.

Código Delphi [-]
  Case nModelo of
  1:begin
    Application.CreateForm(TfrLptFactura, frLptFactura);
    frLptFactura.LptFactura.PrinterSettings.PrinterIndex:=GetImpresora(Impresora1);
      if n = 1 then
      frLptFactura.LptFactura.PreviewModal
      else
      frLptFactura.LptFactura.Print;

    frLptFactura.Close;
    end;



Function GetImpresora(Impre:String):Integer;
Var
nCont:Integer;
lSearch:Boolean;
cNewLIne:String;
begin
lSearch:=False;
cNewLine:=Chr(10)+Chr(13);

  For nCont:=0 to Printer.Printers.Count - 1 do
  //buscamos la impresora en la lista del sistema
  begin

      if Pos(impre, Printer.Printers[nCont]) <> 0 then
      begin
      lSearch:=True;
      Result:=nCont;
      Break;
      end;

  end;

  if lSearch = False then
  begin
  ShowMessage('Impresora no encontrada.'+impre+cNewLine+'Se utilizará la predeterminda.');
  Result:=-1
  end;

end;



Procedure Obtener_Impresoras();
begin
MiCarpeta:=ExtractFilePath(Application.ExeName);
IniPrinters:=MiCarpeta+'MZprn.ini';
  Try
  //Abrir el INI
  Fichero := TIniFile.Create(IniPrinters);
  Impresora1:=Fichero.ReadString ('Facturas', 'String','Error');
  Impresora2:=Fichero.ReadString ('Albaranes', 'String','Error');
  Impresora3:=Fichero.ReadString ('Ruta', 'String','Error');
  Impresora4:=Fichero.ReadString ('Listados', 'String','Error');
  Except
  ShowMessage('No se pudo acceder al fichero '+Fichero.FileName  );
  end;
//
end;

//Ejemplo de INI

[Facturas]
String=\\FACTURACION\EPSON LQ-590 ESC/P 2 Ver 2.0
[Albaranes]
String=\\FACTURACION\EPSON LQ-590 ESC/P 2 Ver 2.0
[Ruta]
String=KONICA MINOLTA C360SeriesPCL
[Listados]
String=KONICA MINOLTA C360SeriesPCL


//Creación del INI


procedure TfrImpresoras.SpeedButton5Click(Sender: TObject);
var
lCrear:Boolean;
begin
lCrear:=True;
   if FileExists(IniPrinters) then
   begin
      if Application.MessageBox('El fichero ya existe.¿Seguro que desea sobreescribirlo?','Atención',mb_OkCancel +
      mb_IconQuestion)= idOk then
      begin
      DeleteFile(IniPrinters);
      lCrear:=True;
      end
      else
      begin
      ShowMessage('Opción cancelada por el usurio. El fichero no se creo.');
      lCrear:=False;
      end;
  end
  else
  lCrear:=True;
  if lCrear = True then
  begin
    Try
    Fichero := TIniFile.Create (IniPrinters); // Accedemos al Fichero
    //Facturas
    Etiqueta:='Facturas';
    Fichero.WriteString(Etiqueta,'String',EdFacturas.Text);
    //Albaranes
    Etiqueta:='Albaranes';
    Fichero.WriteString(Etiqueta,'String',EdAlbaranes.Text);
    //Albaranes Ruta
    Etiqueta:='Ruta';
    Fichero.WriteString(Etiqueta,'String',EdRuta.Text);
    //Listados
    Etiqueta:='Listados';
    Fichero.WriteString(Etiqueta,'String',EdListados.Text);

    Fichero.Free; // Cerramos el Fichero
    Obtener_Impresoras();
    Except
    ShowMessage('Atención:Se produjo un error, el fichero INI no se grabó.');
    end;
  end;

end;

Un Saludo.

[[newtron]]

¿Y sería una tontería capturar la impresora activa antes de imprimir en la matricial, seleccionar la impresora matricial, imprimir en ella y luego volver a dejar la impresora que había?

[olbeup]

Hola lbidi,

Efectivamente tienes razón, Prueba con esto otro, está funciona correctamente

Código Delphi [-]
...
var
  IDDefault: Integer;
begin
  // Guardar la impresora por defecto
  IDDefault := Printer.PrinterIndex;

  // Decir cual es la impresora que tiene que utilizar el QuickReport
  QuickRep1.PrinterSettings.PrinterIndex := IDDefault;
  QuickRep1.PreviewModal;

  // Restaurar la impresora por defecto
  Printer.PrinterIndex := IDDefault;
end;

Un saludo

[lbidi]

Gracias a todos por vuestras respuestas.

Aunque veo que la mayoria del codigo posteado es para QuickReport.

Estoy usando Fast Report, pero tratare de adaptarlo.

Saludos.

[olbeup]

Empezado por lbidi

Gracias a todos por vuestras respuestas.

Aunque veo que la mayoria del codigo posteado es para QuickReport.

Estoy usando Fast Report, pero tratare de adaptarlo.

Saludos.

Efectivamente todo está orientado a QuickReport, no he visto ningún post tuyo referente a Fast Report, casi todos usamos al menos yo QuickReport y todas las respuesta iban orientadas a QuickReport.

Un saludo.

[lbidi]

olbeup...Efectivamente tienes razon.. No mencione el uso de FR en ningun lado.

Casi siempre lo hago, pero esta vez en el apuro, omiti hacerlo.

Pido disculpas por la falta de informacion brindada al hacer la consulta.

Espero hacerlo mejor la proxima.

Gracias a todos.

Saludos.

Leonardo

[Casimiro Noteví]

Ya sabemos: Mejores preguntas obtienen mejores respuestas