QRPrintSetup actualizar impresora seleccionada

[jonydread]

Buenas noches desde aca, les cuento tengo un quickrep, con una preview personalizada esta agrege botones con una coolbar, al boton imprimir le puse el sgte codigo y si cambio la impresora le da igual siempre me tira la impresion a la misma impresora, aca en el foro hay temas sobre esto pero no encontre una solucion

Código Delphi [-]
procedure TPreview.ToolButton1Click(Sender: TObject);
begin
reporteform.quickrep1.QRPrinter.PrintSetup;
if reporteform.quickrep1.QRPrinter.Master.tag = 0 then
        reporteform.quickrep1.QRPrinter.Print;
end;

adjunto custompreview.pas

saludos

[marcoszorrilla]

Yo hago esto:

Código Delphi [-]
procedure TfrConclientes.SpeedButton4Click(Sender: TObject);
begin
Application.CreateForm(TfrlstClientes, frlstClientes);
frlstClientes.ListaClientes.PrinterSettings.PrinterIndex:=GetImpresora(Impresora4);
frlstClientes.ListaClientes.Print;
frlstClientes.Close;
end;

Un Saludo

[marcoszorrilla]

Añado la función que selecciona la impresora, por ejemplo la que este configuradad para Facturas, Pedidos, Listados...

Código Delphi [-]
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;

Un Saludo.

[jonydread]

lo realizo asi y dice GetImpresora undeclared identifier
en el quickrep

Código Delphi [-]
procedure TReporteForm.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
QuickRep1.PrinterSettings.Printerindex:=GetImpresora(qrPrinter.PrinterIndex);
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;

en boton del QRPreview

Código Delphi [-]
procedure TPreview.ToolButton1Click(Sender: TObject);
begin
reporteform.quickrep1.QRPrinter.PrintSetup;
if reporteform.quickrep1.QRPrinter.Master.tag = 0 then
        reporteform.quickrep1.QRPrinter.Print;

end;

que hago mal??

[ecfisa]

Empezado por jonydread

lo realizo asi y dice GetImpresora undeclared identifier
...
que hago mal??

Hola jonydread.

Código Delphi [-]
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 TReporteForm.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
QuickRep1.PrinterSettings.Printerindex:=GetImpresora(qrPrinter.PrinterIndex);
end;

GetImpresora es una función y a diferencia de un método, su declaración tiene que preceder en órden al código que la invoca.

Saludos.

[jonydread]

creo que el problema esta en

Código Delphi [-]
GetImpresora(QRPrinter.PrinterIndex)

no se puede utilizar QRPrinter.PrinterIndex y dice Returnvalue of function GetImpresora migth be undefined si dejo vacio para probar el error y es lo mismo

como puedo obtener la impresora seleccionada en el printsetup qe esta en preview del quickrep

Código Delphi [-]
reporteform.quickrep1.QRPrinter.PrintSetup

[jonydread]

he quitado el error pero no obtener la impresora seleccionada

Código Delphi [-]
procedure TPreview.ToolButton1Click(Sender: TObject);
  var
simp:string;
begin
ReporteForm.quickrep1.QRPrinter.printsetup;
if ReporteForm.quickrep1.QRPrinter.Master.tag = 0 then
begin
simp := inttostr(ReporteForm.quickrep1.QRPrinter.PrinterIndex);
ReporteForm.quickrep1.PrinterSettings.PrinterIndex:=GetImpresora(simp);
showmessage(simp);
        ReporteForm.quickrep1.QRPrinter.Print;
end;
end;

[ecfisa]

Empezado por jonydread

como puedo obtener la impresora seleccionada en el printsetup qe esta en preview del quickrep

Hola jonydread.

Para obtener la impresora actualmente seleccionada te tendría que alcanzar con:

Código Delphi [-]
...
implementation

uses Printers;

function GetCurrentPrinterName: string;
begin
  Result := '';
  if Printer.PrinterIndex <> -1 then
    Result := Printer.Printers[Printer.PrinterIndex];
end;
...

Pero en estos enlaces vas a encontrar mas opciones, tanto para obtenerla como para configurarla:

• Get Default Printer Name
• ...get / set the default printer?
• How to change the default printer from Delphi

Saludos.

[jonydread]

Muchas gracias Ecfisa y tambien a marcoszorrilla
finalmente lo logre!!
quedo asi

Código Delphi [-]
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;
function GetCurrentPrinterName: string;
begin
  Result := '';
  if Printer.PrinterIndex <> -1 then
    Result := Printer.Printers[Printer.PrinterIndex];
end;
procedure TPreview.ToolButton1Click(Sender: TObject);
  var
simp:string;
begin
ReporteForm.quickrep1.QRPrinter.printsetup;
if ReporteForm.quickrep1.QRPrinter.Master.tag = 0 then
begin
simp := GetCurrentPrinterName;
ReporteForm.QuickRep1.QRPrinter.PrinterIndex := getimpresora(simp);
        ReporteForm.quickrep1.QRPrinter.Print;
end;
end;