如何用指令控制打印圖像和文字?(50分)

用Tprinter的Canvas属性。

对，你可以看“DELPHI开发人员指南”那本书

你搜索一下，原来有关于这方面的讨论

>打印图象：

uses Printers;

procedure TForm1.Button1Click(Sender: TObject);
var
ScaleX, ScaleY: Integer;
R: TRect;

begin

Printer.begin
Doc;

with Printerdo

try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R := Rect(0, 0, Image1.Picture.Width * ScaleX,
Image1.Picture.Height * ScaleY);
Canvas.StretchDraw(R, Image1.Picture.Graphic);

finally
EndDoc;

end;

end;


>打印文字同理，你可以将文字保存为图象来打印

使用Tprinter.Canvas了。