首页上一页 1 下一页尾页 1 条记录 1/1页
标题打印不能居中
发表在VB答疑区
2017-02-18
是否精华
是
否
版块置顶:
是
否
Picture2.FontSize = 22
Picture2.Font = "楷体_GB2312"
Picture2.FontBold = True
Picture2.CurrentX = (Picture2.ScaleWidth - TextWidth(Adodc9.Recordset.Fields("单位名称"))) / 2
Picture2.CurrentY = 580
Picture2.Print Adodc9.Recordset.Fields("单位名称")
Picture2.FontSize = 16
Picture2.Font = "楷体_GB2312"
Picture2.CurrentX = (Picture2.ScaleWidth - TextWidth("处方笺")) / 2
Picture2.CurrentY = 1000
Picture2.Print "处方笺"