운영체제 : windows 98
사용DB : 오라클 8.1.7
사용Tool : 델파이 5
PrinterDialog 창에서 여러 프린터중에서 연속용지로 프린터하는 프린터를 선택하고 프린터를 시작하게 되면 위와 같은 에러가 납니다.
도대체 왜 에러가 나는지 알 수가 없네요.... 고수님들의 답변좀 부탁드립니다.
위에 해당되는 소스만 올립니다...
procedure TFM_T11101.BB_PrintSetupClick(Sender: TObject);
begin
if PS_PrintSetup.Execute then
FM_T11101R.QR_QuickReport.PrinterSettings.PrinterIndex := Printer.PrinterIndex;
end;
if RB_Paper_136.Checked = True then {136 용지선택}
begin
LST_SelectPaperSize := LST_PaperSize_136; --> 136칼럼을 선택하면
end; '136'값이 대입.
if LST_SelectPaperSize = '136' then
begin
if QR_QuickReport.Page.Orientation = poPortrait then
QR_QuickReport.Page.Orientation := poLandscape
else QR_QuickReport.Page.Orientation := poPortrait;
QR_QuickReport.Page.PaperSize := Custom; // Appended
QR_QuickReport.Page.Length := 279;
QR_QuickReport.Page.Width := 381;
QR_QuickReport.Page.BottomMargin := 10;
end;
if RB_Print_Printer.Checked then begin
with FM_T11101R.QR_QuickReport do begin
PrinterSettings.Copies :=
StrToInt(FloatToStr(NU_PrintCnt.Value)); {인쇄매수}
PrinterSettings.FirstPage :=
StrToInt(FloatToStr(NU_PrintRangeFrom.Value)); {인쇄범위-시작}
PrinterSettings.LastPage :=
StrToInt(FloatToStr(NU_PrintRangeTo.Value)); {인쇄범위-종료}
Print;
end;
end;
** 참고 : 화면으로 출력시에는 에러가 나지않고 프린터로 출력시에만 에러납니다.