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; |
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. |
s tiene 'LANIER LD135 PCL 5e' cuando ingresa en la función
|
La franja horaria es GMT +2. Ahora son las 17:14:01. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi