[질문]JPEG 이미지 출력이 됐다가 안됐다가...

엑티브엑스로 짠 프로그램인데요...
웹에서 필요한 데이터를 읽어 JPEG이미지를 배경으로 깔고 값을 출력하는데
이미지 화일은 로컬 일정 디렉토리에 있구요.

제컴터에선 되는데..
다른데선 안돼기도 하고 어느것은 이미지의 반만 출력되구요
어떤피씨에선 잘되고..
그래도 어느경우던 텍스트는 잘나옵니다. 에러도 안나고.. ㅠ.ㅠ

하... 미치겠네요...
BMP로 바꾸자니 화일이 머누 커져 버리구.. 골치 아프다.
고수님들 좀 봐주세요

procedure TActiveFormX.PrtList(Sender: TObject);
var
        memostr : String;
        PrtStr : String;

        StrNum : Integer;
        XPoint, YPoint : Integer;
        PrtStrListRec,XYPointListRec: Tstringlist;
        XYP: Tstringlist;
        BackJpg : TJPEGImage;
        ScaleX, ScaleY, Xoffset, Yoffset: Integer;
        R: TRect;
begin
         memostr := '>>검사자 리스트 출력 함수가 호출 되었습니다.';
         Memo.Lines.Add(memostr);

         PrtStrListRec := TStringList.Create;
         XYPointListRec := TStringList.Create;
         ExtractStrings(['|'], [' '], PChar(Edit2.Text), PrtStrListRec);
         ExtractStrings(['|'], [' '], PChar(Edit3.Text), XYPointListRec);

         with Printer.Canvas do
         begin
                Printer.BeginDoc;
                Font.Name := '굴림체';
                Font.Height := 75;
                Pen.Width := 3;
                Pen.color := clBlack;
                Brush.Color := clwhite;
                BackJpg := TJPEGImage.Create;

                 try
                        BackJpg.LoadFromFile( Edit6.Text );
                        Image1.Picture.Bitmap.Assign( BackJpg );

                         ScaleX := 2;
                        ScaleY := 2;
                        Xoffset := 400;
                        Yoffset := 400;

                        R := Rect(Xoffset, Yoffset, Image1.Picture.Width * ScaleX + Xoffset, Image1.Picture.Height * ScaleY+Yoffset);
                        StretchDraw(R, Image1.Picture.Graphic);
                finally
                        BackJpg.Free;
                end;

                For StrNum := 1 To StrToInt(Edit5.Text) Do
                Begin
                        XYP := TStringList.Create;
                        ExtractStrings([','], [' '], PChar(XYPointListRec.Strings[StrNum-1]), XYP);
                        Xpoint := StrToInt(XYP.Strings[0]);
                        Ypoint := StrToInt(XYP.Strings[1]);
                        PrtStr := PrtStrListRec.Strings[StrNum-1];

                        TextOut(XPoint,YPoint,PrtStr); //한 데이터씩 출력

                        memostr := '>>출력 (' + IntToStr(Xpoint) + ',' + IntToStr(Ypoint) + ')' + PrtStr;
                        Memo.Lines.Add(memostr);

                end;

                Printer.EndDoc;

         end;

end;

빠른 답변 좀요... 염치 없구만요