请问如何才能使打印的字体颜色位置等和MEMO中设置的一样呀？(55分)

这样可以让客户自己设计封面，搞了半天了......

菜MM辛苦了，UP先，HOHO~~~

>>这样可以让客户自己设计封面
你memo中字体颜色时客户动态设置的码？
不太会！捧个场

是的呀，现在就是打印不知道怎么办？

能不能以memo的top,left为起始坐标，用Tprinter的canvus自己画？
比如说：第一行，用空格数*每个空格占的宽度作为x坐标，y坐标为top
没试，乱说的！

晕...

将你打印的源码贴上。 在线支持。MM (开个玩笑）

再不贴我走人了。 ....

有的话我还问干吗呀，笨

最简单的办法是
得到memo的canvas
然后将该canvas上的内容复制到printer的canvas上
然后打印

自己寫打印程序的。
x_coffee的方法不錯，省事。

别晕
我就来画一个
//定位打印头
x=30;
y=20;
Printer()->begin
Doc();//开始一个打印工作
//打印标头
Printer()->Canvas->Font->Size=8;
Printer()->Canvas->Font->Name="黑体";
Printer()->Canvas->TextOut(x,y," ----位置详单----");
Printer()->Canvas->Font->Size=7;
Printer()->Canvas->Font->Name="宋体";
//打印表格标题行
y=y+80;
Printer()->Canvas->TextOut(x,y,"┏━━━━━━━━━┳━━━━━━━━━━━━┓");
y=y+80;
Printer()->Canvas->TextOut(x,y,"┃ 名称: ┃");
y=y+80;
for(int i=0;i<dprintlist->Count;i++)
{
printitem=dprintlist->Items->operator [](i);
bn=printitem.SubString(0,printitem.LastDelimiter("::")-2);
loc=printitem.SubString(printitem.LastDelimiter("::"),printitem.Length());
doPreint(bn);
Printer()->Canvas->TextOut(x,y,"┃存放位置： ┃");
y=y+80;
doPreint(loc);
}
Printer()->Canvas->TextOut(x,y,"┗━━━━━━━━━┻━━━━━━━━━━━━┛");
Printer()->EndDoc();//结束一个打印工作
//ShowMessage("打印完成!谢谢使用!");
Application->MessageBoxA("打印完成!谢谢使用!","系统",MB_OK);
}
catch(...)
{
//ShowMessage("打印出错!请检查打印机是否连接好或者电源是否打开及其设置!");
Application->MessageBoxA("打印出错!请检查打印机是否连接好或者电源是否打开及其设置!","图书查询系统",MB_OK);
} }

[]