PrinterSetup 에서 캔슬은 Tag 값이 -1 이고요
오케이 버튼은 Tag 값이 0 이 되는것이지요.
PrinterSetup 를 이용하여 프린터를 세텃 시키고 프린터를 시킬지
안시킬지도 한번에 처리하는것입니다.
허접한 답이라 ^^*
procedure TfrmPersonDiligencePrint.btnDiligenceDayPrintClick(Sender: TObject);
begin
With frmDiligenceDayReport.qrDiligenceDay do
begin
Tag := -1;
PrinterSetup;
if Tag = 0 then Print;
end;
end;
PrinterSetup 에서 캔슬은 Tag 값이 -1 이고요
오케이 버튼은 Tag 값이 0 이 되는것이지요.
PrinterSetup 를 이용하여 프린터를 세텃 시키고 프린터를 시킬지
안시킬지도 한번에 처리하는것입니다.
허접한 답이라 ^^*
procedure TfrmPersonDiligencePrint.btnDiligenceDayPrintClick(Sender: TObject);
begin
With frmDiligenceDayReport.qrDiligenceDay do
begin
Tag := -1;
PrinterSetup;
if Tag = 0 then Print;
end;
end;