송정무 wrote:

> Bitmap에 Text를 올려 인쇄하려고 하는데 통 방법을 모르겠네요..

> 아시는 분은 방법을 좀 갈켜 주세요..

>



안녕하세요. 홍세빕니다.



흠.. 이것은 제가 CD 라벨제작기를 만들때 썼었던 예제인데 활용하시기 바랍니다.



procedure TMainForm.DrawBackLabel(dest: TCanvas);

var

LineNum, i : integer;

OldBkMode : integer;

MyRect : TRect;

begin

with dest do begin

MyRect.Left := BBox.Left+1;

MyRect.Top := BBox.Top+1;

MyRect.Right := BBox.Width-1;

MyRect.Bottom := BBox.Height-1;

StretchDraw(MyRect, BackImage.Picture.Graphic);

OldBkMode := SetBkMode(Handle, TRANSPARENT);

LineNum := REdit.Lines.Count;

for i := 0 to LineNum-1 do

TextOut(2, (dest.TextHeight(REdit.Lines[i])*i), REdit.Lines[i]);

SetBkMode(Handle, OldBkMode);

end;

end;



위의 소스는 Canvas에 Richedit의 내용을 쓰는 함수입니다.

물론 그림위에 투명으로 나타납니다.





인쇄를 할때는 Printer에 Draw 메소드를 사용해서 출력을 하심 되겠져?

그림 인쇄는 한델강의실의 양병규님의 강좌를 참고하시기 바랍니다.



제가 시간이 없는 관계로 소스를 올려드리지 못해 죄송하네여.

퇴근해야거든요. 버스 떨어지기 전에... ^_^;;



http://myhome.netsgo.com/parkhs98



제 홈피인데 한번 놀러오세여.

즐거운 주말보내시길...