VB (Printer)打印位置

TextBox里面有多行文字，我利用下面的代码将其打印出来，但是只有第一行是根据代码设置的位置打印出来的，请大家看看是怎回事？OnErrorResumeNextCommo... TextBox里面有多行文字，我利用下面的代码将其打印出来，但是只有第一行是根据代码设置的位置打印出来的，请大家看看是怎回事？
On Error Resume Next
CommonDialog1.CancelError = True
CommonDialog1.ShowPrinter
If Err.Number <> 0 Then Exit Sub
Printer.CurrentX = 1000
Printer.CurrentY = 100
Printer.FontSize = 18
Printer.Font = "ARIAL BLACK"
Printer.Print Text1.Text
Printer.EndDoc 展开

 我来答

3个回答

#合辑# 面试问优缺点怎么回答最加分？

zdingyun
推荐于2016-04-09 · 知道合伙人软件行家

zdingyun
知道合伙人软件行家

采纳数：15429 获赞数：48180

1982年上海业余工业大学化工系毕业现退休

向TA提问私信TA

关注

展开全部

VB通过设置CurrentX、CurrentY 属性来确定打印位置。

CurrentX、CurrentY 属性

返回或设置下一次打印或绘图方法的水平 (CurrentX) 或垂直 (CurrentY) 坐标。设计时不可用。

语法

object.CurrentX [= x]

object.CurrentY [= y]

代码示例：

Private Sub Command1_Click()
    Printer.CurrentX = 500
    Printer.CurrentY = 300
    Printer.FontSize = 16
    Printer.Print "VB (Printer)打印位置"
    Printer.CurrentX = 500
    Printer.CurrentY = 1000
    Printer.Print "VB通过设置CurrentX、CurrentY 属性来确定打印位置。"
    Printer.EndDoc
End Sub

打印效果：

已赞过 已踩过<

评论收起

AiPPT
2024-09-19 广告

随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图... 点击进入详情页

本回答由AiPPT提供

Ynzsvt
2011-01-25 · TA获得超过6666个赞

知道大有可为答主

回答量：1.5万

采纳率：40%

帮助的人：2705万

我也去答题访问个人页

关注

展开全部

那就辛苦点，以分行符分割成数组再处理吧！

已赞过 已踩过<

评论收起

沙慧月03
推荐于2016-09-16 · TA获得超过2157个赞

知道大有可为答主

回答量：2717

采纳率：100%

帮助的人：3634万

我也去答题访问个人页

关注

展开全部

On Error Resume Next
CommonDialog1.CancelError = True
CommonDialog1.ShowPrinter
If Err.Number <> 0 Then Exit Sub
Printer.CurrentY = 80
t = Split(Text1, vbCrLf)
For i = 0 To UBound(t)
    Printer.CurrentX = 1000
  Printer.CurrentY = Printer.CurrentY + 20
  Printer.FontSize = 18
    Printer.Font = "ARIAL BLACK"
Printer.Print t(i)
Next
    
    Printer.EndDoc


本回答被提问者采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起

更多回答（1）

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

VB (Printer)打印位置

其他类似问题

为你推荐：