字符、图片打印问题

Question

在一个FORM上方一些DBTEXT,和DBImage如何能把字符和图片同时打印出来啊？

Answer 1

打印图象 ：记得添加Printers单元 procedure TForm1.Button1Click(Sender: TObject); 
var 
  ScaleX, ScaleY: Integer; 
  R: TRect; begin 
  Printer.BeginDoc;  // ** 
  with Printer do 
  try 
    ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch; 
    ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch; 
    R := Rect(0, 0, DBImage1.Picture.Width * ScaleX, 
      DBImage1.Picture.Height * ScaleY); 
    Canvas.StretchDraw(R, DBImage1.Picture.Graphic);  // ** 
  finally 
    EndDoc;  // ** 
  end; 
end; 

Answer 2

DBText://  uses printers;
with  printer do
  begin
    beginDOc;
    canvas.font.name:='宋体';
    canvas.font.style:=[FsBlod];
    canvas.font.size:=11;
    canvas.textout(100,100,DBText.text);
    EndDoc;
  end;//////////////////////////////////////////////也可用 Form1.print;  或许也能满足你的需求:)

Answer 3

Form1.print;怎么用啊？
谁能给个例子？