Ver Mensaje Individual
  #2  
Antiguo 21-11-2006
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
Instala una impresora cualquiera en ese ordenador, el controlador solamente se entiende.


Puedes también mostrar un diálogo de impresión antes de mandar cualquier trabajo y obligar a que elijan una impresora.

O sino instalas una impresora otra solución puede ser antes de mandar imprimir, obtener las impresoras del sistema, sino no hay ninguna disponible no lanzas QuickReport.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Device, Driver, Port : array [0..255] of Char;
  Modo : Cardinal;
begin
  Printer.GetPrinter(Device,Driver,port,Modo);

  if Device <> '' then ShowMessage(Device)
  else ShowMessage('Sin definir impresora');
end;

Bueno a ver si te sirve alguna de las 3 ideas.

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