چاپ مستقیم روی پرینتر

سلام.
چطور میشه مستقیما روی پرینتر پرینت گرفت؟‌ بدون استاده از Reportها؟
دقیقا مثل داس (اول فونت فارسی رو ست کنم بعد پرینت کنم)؟

ممنون.

[asdfghjkl]

این سوال رو منم دارم اگه کسی میدونه جواب بده
چطوری میتونم روی پرینترهای سوزنی فونت لود کنم

[شفیعی]

سلام
فکر کنم با دستورات زیر بتوان این کار را انجام داد

PRINTER.BEGINDOC;







PRINTER.ENDDOC;

[hr110]

اقای شفیعی شما کاملاً درست متوجه شدید، البته این بخشی از کاری است که شما باید انجام بدهید.
دستور begindoc به شما امکان میدهد که به Canvas که یکی از پراپرتیهای متغییر سراسری Printer میباشد دسترسی داشته و با استفاده از دستورات TextOut ، DrawText و یا CopyRect و ... متون و تصاویر خود را به چاپگر انتقال داده و بعد از اتمام با دستور Enddoc به چاپگر بفهمانید که انتهای متن فرارسیده و آنرا به کاغذ انتقال دهد.

در این زمینه قبلا هم جوابهایی داده شده است. :flower:

[vesal]

سلام
برای این کار ابتدا باید یونیت Printers را در قسمت Uses اضافه کنید.
بعد از آن می توانید با استفاده از
اینم یه برنامه کوچولو که فکر کنم تا حدی کار با کلاس Printers رو نشون میده

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs,printers, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

var

printr:TPrinter;

begin

Printer.BeginDoc;

Printer.Canvas.Font.Name:='tahoma';

Printer.Canvas.Font.Size:=48;

Printer.Canvas.TextOut(60,60,'Hello World');

Printer.EndDoc;

end;



end.

[Touska]

آقای Vesal لطفا کد خود را با کد Code جدا کنید برای مثال :

Procedure Test;

Begin

End;

موفق باشید :flower: