vb中窗体打印代码（vb打印设置代码）

今天给各位分享vb中窗体打印代码的知识，其中也会对vb打印设置代码进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、VB上如何打印窗体指定位置的内容？
• 2、VB中怎么在窗体打印中换行?
• 3、VB在窗体打印

VB上如何打印窗体指定位置的内容？

VB可以用CurrentX、CurrentY 属性实现定位打印。用ScaleMode 属性确定打印机对象坐标的度量单位。

CurrentX、CurrentY 属性，返回或设置下一次打印或绘图方法的 水平 (CurrentX) 或垂直

(CurrentY) 坐标。

ScaleMode 属性，当使用图形方法或调整控件位置时，返回或设置一个值，该值指示对象坐标的度量单位。

具体实现代码：

Option Explicit

    Dim X As Long

    Dim y As Long

    Dim fnt As Variant

    Dim txt As String

    Dim dy As Variant

Public Function prnt(X As Variant, y As Variant, fnt As Variant, txt As Variant)

    Printer.CurrentX = X

    Printer.CurrentY = y

    Printer.FontSize = fnt

    Printer.Print txt

End Function

Private Sub Command1_Click()

    Printer.ScaleMode = 6 '以mm定位

    Printer.CurrentX = 10

    Printer.CurrentY = 20

    fnt = 12

    txt = "YD(0)"

    dy = prnt(X, y, fnt, txt)

    Printer.EndDoc

End Sub

VB中怎么在窗体打印中换行?

1、打开VB6.0，新建一个工程，在窗体中添加五个命令按钮，caption分别改为“回车”、“换行”、“回车换行”、“换行回车”以及“VBCrlf”。

添加一个文本框，将其Text属性清空，MultiLine属性设置为True，Scrollbars属性设置为2-Vertical，将窗体Form1的caption属性改为“回车符和换行符的区别”，将界面设置成下图：

2、双击“回车”命令按钮，进入代码编辑窗口，输入如下代码：Text1.Text = 1 Chr(13) 2，如图：

3、双击“换行”命令按钮，进入代码编辑窗口，输入如下代码：Text1.Text = 1 Chr(10) 2，如图：

4、双击“回车换行”命令按钮，进入代码编辑窗口，输入如下代码：Text1.Text = 1 Chr(13) Chr(10) 2，如图：

5、双击“换行回车”命令按钮，进入代码编辑窗口，输入如下代码：Text1.Text = 1 Chr(10) + Chr(13) 2，如图：

6、双击“vbCrlf”命令按钮，进入代码编辑窗口，输入如下代码：Text1.Text = 1 vbCrLf 2，如图：

7、关闭代码窗口，按下F5运行程序，依次单击““回车”、“换行”、“回车换行”、“换行回车”以及“VBCrlf”命令按钮，在窗体中依次输出，如图：

VB在窗体打印

Private Sub Command1_Click()

Dim abc As Integer, b As String

b = "qqq"

c = 0

For abc = 1 To 29 Step 1

If TextHeight(b) + CurrentY = ScaleHeight Then

CurrentY = 0

CurrentX = CurrentX + TextWidth(b) + 1000

c = CurrentX

End If

CurrentX = c

Print abc; "---"; b

Next abc

End Sub

Private Sub Command1_Click()

Dim abc As Integer, b As String

b = "qqq"

c = 0

For abc = 1 To 60

If TextHeight(b) + CurrentY = ScaleHeight Then

CurrentY = 0

CurrentX = c + TextWidth(b) + 1000

c = CurrentX

End If

CurrentX = c

Print abc; "---"; b

Next abc

End Sub

关于vb中窗体打印代码和vb打印设置代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。