Preview는 정상적으로 작동되는데 Print를 눌르면 진행상태 창만 살짝
떴다가 아무일 없었다는 듯이 사라지고서는 프린트가 안됩니다.
그래서 편법으로 Preview대신에 기냥 Print명령어로 대체해서 쓰고 있습니다.
이렇게 하면 프린트는 잘되요.
=======================
reportname.Print
reportname.Free
=======================
도대체 왜 그런지 사방 Delphi Q&A를 다 뒤져도 비슷한 질문은 있는데
해답은 없더군요.
그리고 어떤 분이 Preview에서 Printer Setup을 하면 Violation Error가
발생한다고 하셨는데 저도 똑같은 상황이 발생해서 www.qusoft.com에서
최신patch version을 깔았느데 그런 현상은 없어지더군요.
참고로 Delphi4 C/S version이고 Update Pack은 죄다 설치했습니다.
> Preview는 정상적으로 작동되는데 Print를 눌르면 진행상태 창만 살짝
> 떴다가 아무일 없었다는 듯이 사라지고서는 프린트가 안됩니다.
> 그래서 편법으로 Preview대신에 기냥 Print명령어로 대체해서 쓰고 있습니다.
> 이렇게 하면 프린트는 잘되요.
> =======================
> reportname.Print
> reportname.Free
> =======================
> 도대체 왜 그런지 사방 Delphi Q&A를 다 뒤져도 비슷한 질문은 있는데
> 해답은 없더군요.
> 그리고 어떤 분이 Preview에서 Printer Setup을 하면 Violation Error가
> 발생한다고 하셨는데 저도 똑같은 상황이 발생해서 www.qusoft.com에서
> 최신patch version을 깔았느데 그런 현상은 없어지더군요.
> 참고로 Delphi4 C/S version이고 Update Pack은 죄다 설치했습니다.
>
다시한번 Update Pack 를 확인하세요..
Update Pack 1, 2, 3 그리고 Quick Report Update Pack
총 4개의 Pack를 설치해야함..
그리고 설치 완료후 Quick Report 패키지를 한번 내렸다 다시 올려야함..(중요)
그리고 Report 출력시 표준을 따라주면 좋겠네요.
(참고)
rptHcis306R := TrptHcis306R.Create(Self);
with rptHcis306R do
begin
qryreport.Params[0].AsString := cmbJobNo.Text;
qryreport.Open;
Try
if not qryReport.isEmpty then
Preview
else
proc_Message(INoData, '', 'I');
Finally
Free ;
end ;
end ;
감사합니당..