La Web del Programador: Comunidad de Programadores
 
    Pregunta:  12805 - IMPRESORA POR DEFECTO
Autor:  Tavinho OP
Hola amigos
Como puedo seleccionar la impresora desde Tprinter y que tenga efecto para todos mis reportes de mi aplicaciĆ³n, utilizando Qreport
Gracias chau.

  Respuesta:  Andy Nin
Mira a ver si esto te sirve.. lo encontre una vez no recuerdo donde...

procedure SetDefaultPrinter(const device: string);
// Si existe mas de un printer asigno el que quiero directamente
var
IniFile: TIniFile;
begin
IniFile := TIniFile.Create('WIN.INI');
try
IniFile.WriteString('windows', 'device', device);
except
IniFile.Free;
raise;
end;
IniFile.Free;
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0,
LPARAM(pchar('windows')));
end;