PORQUE EL SIGUIENTE CODIGO NO DA ERROR
Código Delphi
[-]
PROCEDURE impform;
var I:INTEGER;
miform:tform;
BEGIN
I:=0;
WHILE i <= Screen.FormCount - 1 do BEGIN
MIFORM:=TFORM(Screen.Forms[i]);
if MIFORM.Active then begin
MIFORM.PrintScale:=poprinttofit;
MIFORM.Print;
I:=Screen.FormCount;
end else
i:=i+1;
end;
END;
Y ESTE DA ERROR VIOLACION DE ACCESO ¿¿¿ ???
Código Delphi
[-]
PROCEDURE impform;
var I:INTEGER;
BEGIN
I:=0;
WHILE i <= Screen.FormCount - 1 do BEGIN
if TFORM(Screen.Forms[i]).Active then begin
TFORM(Screen.Forms[i]).PrintScale:=poprinttofit;
TFORM(Screen.Forms[i]).Print;
I:=Screen.FormCount;
end else
i:=i+1;
end;
END;