问个关于打印的简单问题，急，在线等， 马上揭帖给分

[ceble]

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
TPrinter* prn;
prn->Canvas->TextOutA(10,10,"hello,world!");
}

编译通过，运行时出错，请大家帮我看看

[ceble]

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
TPrinter* prn;
prn->BeginDoc();
prn->Canvas->TextOutA(10,10,"hello,world!");
prn->EndDoc();
}
这样也不行

[hillspring]

把TextOutA改成TextOut试试

[ceble]

回楼上的：
没有TextOut这个方法

[h98458]

程序没有错,是不是打印机的问题?

[hillspring]

TPrinter* prn = Printer();//**********************
prn->BeginDoc();
prn->Canvas->TextOutA(10,10,"hello,world!");
prn->EndDoc();



可以手动删掉A啊成为TextOut啊

[tanlim]

程序本身就有错误
通于TPRINTER对象
一般只能从全局对象创建
例如：TPRINTER *prn=PRINTER();
来获得实际的打印对象。
不能完全新创建的。

[ceble]

TPrinter* prn;
prn=Printer();//要加上这一句就对了
prn->Canvas->Font->Size=20;
prn->BeginDoc();
prn->Canvas->TextOutA(100,100,"hello,world!");
prn->EndDoc();

[ceble]

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
TPrinter* prn;
prn=Printer();
prn->Canvas->Font->Size=20;
prn->BeginDoc();
prn->Canvas->TextOutA(100,100,"hello,world!");
//prn->EndDoc();
}