안녕하세염...

전 꽁수를 좋아하는 관계로...ㅠ.ㅠ

밴드중에 PageHeader가 있으면 Page Header가 찍히는 Before Print
부분이 님 께서 찾으시는 이벤트 같네요..

그럼 즐프하세염...

디테일밴드에 BeforePrint에 이벤트를 주었습니다.

그런데 문제가 있습니다.

BeforePrint에 이벤트를 주면요. 해당페이지 이미지가 다음에 나와야될 이미지가 나옵니다. 즉, 한칸씩 당겨지고요.

AfterPrint에 이벤트를 주면요. 반대현상이 일어납니다. 첫페이지는 이미지가 없고 다음페이지부터 첫페이지에 보여야될 이미지가 보이죠.

이미지불러오는 방법을 설명해드리겠습니다.

데이터베이스에 Blob타입의 필드를 만들었습니다. 그리고 그 안에 넣는데요.BMP가 아니라 JPG라서 좀 번거로워지는거 같습니다. 해당페이지의 정보의 키 값을 가지고 와서 이미지 필드의 값을 불러오거든요.

즉, BeforePrint와 AfterPrint이벤트 시점에 불려오는 페이지의 키값이 실제 보여지는 키값과 달라진다는게 문제인것 같습니다.

소스는 이렇습니다. 미리보기 화면(Preview)에서도 마찬가지 입니다. 하지만 미리보기 화면은 AfterPrint에 이벤트를 주면 제대로 보입니다. 프린트시에 틀려져요. 휴.. 답답...

var
  jpg : TJPEGImage;
  mem : TMemoryStream;
begin
  with qry_mc_pic do begin
    Close;
    ParamByName('mc_code').AsString := qry_08mc_code.Value; //키값
    Open; //이미지를 불러오는 쿼리 실행

    jpg := TJPEGImage.Create;
    mem := TMemoryStream.Create;
    try
      try
        if (TGraphicField(FieldByName('mc_pic')).IsNull) or (FieldByName('mc_pic').AsVariant='') then
          QRImage1.Picture := nil
        else begin
          TGraphicField(FieldByName('mc_pic')).SaveToStream(mem);
          mem.Position := 0;
          jpg.LoadFromStream(mem);
          QRImage1.Picture.Graphic := jpg;
        end;
      except
        on E:Exception do
        ShowMessage(e.Message);
      end;
    finally
      mem.Free;
      jpg.Free;
    end;
  end;
end;

제발 도와주세요~~~~~

허허허
이거는 이벤트가지고 약간씩만 조정하시면 될 것 같은데요..
근데 이거 디테일 밴드에 이미지가 나오는 건가요?
아님 페이지 상단에 페이지 헤더 혹은 타이틀 밴드에 나오는 건가요?

위 소스는 함수로 사용하신 거겠져?

소스를 봐서는 정확히 어느 부분에 이미지를 뿌리는 지는 정확히 모르겠네요..

걍 제 멜로 주시면 안 될까여? 글구 델파이 버전은 어찌 되나요?
전 델 5와 델 7을 사용하거든요.. 이왕이면 이 사이의 버전이면 좋을 것 같은데요..^^;;

제 멜로 소스를 보내 주시면 제가 어떻게 할 수 있을 것 같네요...
제 멜은 major@maruinc.co.kr 혹은 major17@daum.net 입니다..

데이타는 없어두 될 것 같구요...
걍 소스파일하고 폼파일만 보내 주셔도 될 것 같네요..

그럼 즐프하세염..