vb怎样编程同一行内容横向打3联

发布网友

我来回答

共2个回答

热心网友

给段代码参考:

Option Explicit
    Dim x As Integer
    Dim y As Variant
    Dim fnt As Variant
    Dim txt As String
    Dim dd As Variant
    Dim i As Integer

Public Function prnt(x As Integer, 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()
    i = 2
    For i = 0 To 2
        dayin
        'Printer.NewPage
    Next i
    Printer.EndDoc
End Sub

Public Sub dayin()
    fnt = 12
    y = 450:
    x = 2500 * i + 500
    txt = "执行工艺号日期  "
    dd = prnt(x, y, fnt, txt)
End Sub

热心网友

什么叫同行内容打成三联，可以说的详细一点吗？