社区
语言基础/算法/系统设计
帖子详情
Printer.Canvas.TextOut打印不同行每行字体不同的内容,怎么定位?
HelpMeNow
2010-05-28 06:26:16
怎么根据字体大小自动计算出第一行,第二行。。。。纵坐标的位置?
...全文
81
1
打赏
收藏
Printer.Canvas.TextOut打印不同行每行字体不同的内容,怎么定位?
怎么根据字体大小自动计算出第一行,第二行。。。。纵坐标的位置?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lght
2010-05-28
打赏
举报
回复
设置canvas.font
然后用canvas.textheight计算高度
用Delphi编写
打印
程序的窍门
如果想让
打印
程序在任何
打印
机上都能正常地
打印
你就必须改变你的度量单位 如果采用固定的度量
不同
分辨率的
打印
效果是
不同
的 举例来讲
pr
inte
r.
Canvas
.rectangle( )在 × 的佳能 SP上能打出一个 英寸宽 英寸高的矩形 但在 × 的惠普 L上只能打出 英寸宽 英寸高的矩形 使用
打印
机的点数做为度量单位是一个明智的选择 具体做法如下。Windows下的
打印
分辨对
打印
程序有着至关重要的作用 如果你想知道
打印
机的分辨率 请在程序中加入一
行
。// 计算
打印
位置(目的是实现
打印
机无关)
Pr
inte
rs(二) 画布
Canvas
定制
影响
打印
机实际
打印
位置的因素:
打印
机画布分辨率、
打印
机画布
字体
指定。若想同样的
打印
信息,对任何
打印
机都适用布局不会发生变化,设置
打印
机位置时需要考虑。// lpx,lpy,lxin,lyin :
inte
ger ; // ll ,lt :
inte
ger ; //lFont : string ;lFontSize :
inte
ger ; BeginDoc ;
Canvas
.Font.Name
delphi简单
打印
预览
[code="java"] var
Pr
eviewFormEh: T
Pr
eviewFormEh; begin
Pr
eviewFormEh:=T
Pr
eviewFormEh.Create(Application);
Pr
eviewFormEh.Show; with
Pr
eviewFormEh.
Pr
eviewEh1 do begin
Pr
inte
r.Begin...
Pr
inte
r 直接调用
打印
机问题
问题: var i, j:
Inte
ger; top, left:
Inte
ger; //x, y:
Inte
ger; PageHeight, linespace:
Inte
ger; PDMode:PDevMode; begin top:= 150; //Top 起始
行
的位置,比如设置 Top := 20...
delphi
打印
实现(节选)
................ {$R *.dfm}
pr
ocedure SetPaperHeight(Value:
inte
ger); //设置纸张高度-单位:mmvar Device : array[0..255] of char; Driver : array[0..255] of char; Port : array[0..255] of char; hDMode : THan...
语言基础/算法/系统设计
16,748
社区成员
33,247
社区内容
发帖
与我相关
我的任务
语言基础/算法/系统设计
Delphi 语言基础/算法/系统设计
复制链接
扫一扫
分享
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章