FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Error "printing in progress"
utilizo delphi 7 y este es el codigo que tengo:
procedure ActivaImpresora(const s: string); var Device, Name, Port : array[0..100] of char; DevMode : THandle; a :string; q : integer; begin with printer do begin if s<>'' then begin s='LANIER LD135 PCL 5e' a:=printers.Names[0]; //me devuelve vacio a='' prueba realizada printer.PrinterIndex := printers.IndexOf(s); // AQUI DA EL ERROR end else PrinterIndex := -1; GetPrinter(Device, Name, Port, DevMode); SetPrinter(Device, Name, Port, 0); end; end; Última edición por jmlifi fecha: 30-11-2005 a las 18:17:18. |
#2
|
|||
|
|||
que valor tiene s cuando ingresa a la funcion,porque si tiene un valor <> '' nunca va a asignarle el valor 'LANIER LD135 PCL 5e'.
Saludos.
__________________
Hice un trato con Dios... el no hace sistemas y yo hago milagros |
#3
|
|||
|
|||
s tiene 'LANIER LD135 PCL 5e' cuando ingresa en la función
|
|
|
|