QRPrintSetup actualizar impresora seleccionada

[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;