Veamos
Nosotros tenemos varias impresoras y, según el listado, éste ha de salir por una o por la otra. ¿Cómo lo hacemos? Pues bien, tenemos un archivo INI más o menos con esta estructura:
Cita:
[IMPRESORAS]
ETIQUETAS=SP40
LISTADO_STOCKS=Lexmark Optra W810
A3=SuperLexmark
.....
|
Me imagino que lo entiendes, pero sino, lo que ponemos es un nombre de variable (etiquets, listado_stocks, a3,...) y el nombre de la impresora por el cual lo queremos imprimir (el que ves en la pantalla de impresoras instaladas en el sistema).
Luego, me creé la siguiente función con la que recupero la impresora deseada
Código:
...
const
PrintersIni = 'c:\ImpJulia\Printers.ini';
.....
function TBaseListado.GetImpresora(Impresora: string) : integer;
var
Ini : TIniFile;
Imp : string;
i : integer;
begin
if FileExists(PrintersIni) then
begin
Ini := TIniFile.Create(PrintersIni);
Imp := Ini.ReadString('IMPRESORAS', Impresora, '');
Ini.Free;
end;
if Imp = '' then
Result := -1
else
begin
// buscamos la impresora en las instaladas y devolvemos su índice
for i := 0 to Printer.Printers.Count - 1 do
if Pos(Imp, Printer.Printers[i]) <> 0 then Break;
Result := i;
end;
end;
Y luego, desde algún lugar y, antes de hacer el Print o Preview del listado se hace la asignación al QuickReport
Código:
var
Indice: integer;
begin
.....
Indice := GetImpresora('A3');
if Indice <> -1 then
Report.PrinterSettings.PrinterIndex := Indice;
.....
QuickReport1.Print; // o QuickReport1.Preview;
La función tiene un pequeño "bug" que no he tenido ni tiempo ni ganas de arreglar. Y es que si la impresora está definida pero no está configurada, petaría. Este pequeño detalle ya te lo dejo a ti (si lo quieres solucionar)
Bueno, espero que ahora sí puedas hacer lo que quieres