uses ..., Printers;
procedure TForm1.Button1Click(Sender: TObject);
begin
with Printerdo
begin
begin
Doc;
Canvas.Brush.Style := bsClear;
Canvas.Font.Name := '宋体';
Canvas.Font.Color := clBlack;
Canvas.Font.Size := 16;
Canvas.TextOut(500, 500, '这是我的证件');
Canvas.TextOut(550, 630, '6192002999919919999199');
EndDoc;
end;
end;
