Ver Mensaje Individual
  #11  
Antiguo 09-07-2007
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Yo utilizo esta función para recuperar la impresora que voy a utilizar para facturar de una tabla en donde guardo su nombre:

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
  nCont:=-1;
  Result:=nCont;
  ShowMessage('Impresora no encontrada:'+cNewLine+Impre+cNewLine+'Se utilizará la predefinida.');
  end;
          
end;

Si en vez de una tabla, utilizas un INI como te decía, pues haces algo parecido pero recuperando el nombre del INI buscas si existe la utilizas sino muestras el diálogo de elegir impresora al usuario, en este caso creas el INI guardas los parámetros que vayas a utilizar
[Impresora]
Epson_Facturas
[Orientacion]
La_Que_Sea

Teniendo en cuenta que QuickReport utiliza su impresora QrPrinter no Printer luego le pasas a dicha impresora los parámetros recuperados del INI.

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita