用TEXTOUT函数输出至打印机实再文字精确定位?

程序员老干部 2005-03-24 11:19:53
比如:
输入的文字:中国必胜 位置:在A4上居中

我用的代码:
dim s$
s="中国必胜"

TextOut hDC, 100, 100, s, LenB(s)
此时打印出的位置还可以,但如何居中呢?

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

x ,y是以哪种刻度定义坐标的呢?
...全文
127 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
xiaoxiaoP 2005-03-24
  • 打赏
  • 举报
回复
x,y ------------ Long,绘图的起点,采用逻辑坐标,单位是缇。

对于居中,改变x,y值吧。
程序员老干部 2005-03-24
  • 打赏
  • 举报
回复
如何改变X,Y的值呢,请给出代码,谢谢
我试了一下,x=(printer.scalewidth-printer.textwidth(s))/2,但不行,呵
homezj 2005-03-24
  • 打赏
  • 举报
回复
Private Declare Function SetTextAlign Lib "gdi32" (ByVal hdc As Long, ByVal wFlags As Long) As Long

SetTextAlign hdc,2

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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