请教,怎样才能在程序将字倒着打印出来?急啊!请各帮帮忙啦!

KongKong 2003-05-15 05:02:16
如题
...全文
119 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
KongKong 2003-05-15
  • 打赏
  • 举报
回复
谢谢,已经解决了!
888888888888 2003-05-15
  • 打赏
  • 举报
回复
关注
hiflower 2003-05-15
  • 打赏
  • 举报
回复
MyFont:LOGFONT;
OldFont,NewFont:HFONT;

with MyFont do
begin
lfHeight:=Max(1,Trunc(FGridPixels*2.6));
lfWidth:=0;
lfEscapement:=200; //角度
lfOrientation:=200; //角度
lfWeight:=FW_BOLD;//FW_NORMAL;
lfItalic:=0;
lfUnderline:=0;
lfStrikeOut:=0;
lfCharSet:=GB2312_CHARSET;
lfOutPrecision:=OUT_TT_ONLY_PRECIS ;//OUT_DEFAULT_PRECIS;
lfClipPrecision:=CLIP_DEFAULT_PRECIS;
lfQuality:=PROOF_QUALITY;
lfPitchAndFamily:=FIXED_PITCH or FF_DONTCARE;
lfFaceName:='ËÎÌå';
end;
NewFont:=CreateFontIndirect(MyFont);

OldFont:=SelectObject(Canvas.Handle,NewFont);
TextOut(Canvas.Handle,x1,y1,'aaa');
....

DeleteObject(SelectObject(Canvas.Handle,OldFont));//最后释放新字体,选择老字体
cow8063 2003-05-15
  • 打赏
  • 举报
回复
没见过
cow8063 2003-05-15
  • 打赏
  • 举报
回复
没见过
myling 2003-05-15
  • 打赏
  • 举报
回复
打印机没有这个功能吗?太落后了!:-)

多少字?

少的话求反串存在一个临时的串中再打印吧


上万的话…… 插一句,楼主你想干什么?为什么要折磨自己?
wyb716 2003-05-15
  • 打赏
  • 举报
回复
CreateFont

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧