مشکل با TPrinter

[aminzadeh_mojtaba]

من یه چند خط کد برای پرینت کردن نوشتم ولی خطای Printer is not currently printing را می دهد.لطفا راهنمایی کنید ایراد از چیست؟
چگونه می توانم سایز کاغذ را با TPrinter تعیین کنم.به صورت Custom باشد.




var Printer:TPrinter
begin
Printer.newpage;
Printer.begindoc;
printer.canvas.textout(100,100,'test Printer')
Printer.enddoc

[Delphi Skyline]

مشکل از برنامه نیست . شاید مشکل از printer یا softwere آن باشه.

[aminzadeh_mojtaba]

پس چگونه می توانم سایز کاغذ رو به صورت انتخابی تعیین کنم؟
ممنون از جوابتون