Q&A

  • 프린터 할때 'Printer selected is not valid' 에러에 대해서...
운영체제 : 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;


** 참고 : 화면으로 출력시에는 에러가 나지않고 프린터로 출력시에만 에러납니다.
0  COMMENTS