使用PRINTER对象在打印机上输出的例子,50分必给！！！

Question

发个消息，留下邮箱
【我不是流氓～～～～～～～才怪！】

Answer 1

一个老例子。。
Sub Head_print()
    Printer.FontSize = 18
    Printer.FontUnderline = True
    Printer.CurrentY = 660:      Printer.CurrentX = 0
    Printer.Print Tab(23); "品名登录内容卡"
    Printer.FontUnderline = False
End SubSub Title_print()
    
    RSet Pgno = Val(Pgno) + 1
    Printer.CurrentY = 440:     Printer.CurrentX = 0
    Printer.Print Tab(1); Format(Date, "yyyy-mm-dd") + "   " + Format(Time, "hh:mm:ss AMPM"); Tab(92); "- " + Pgno + " -"
    Printer.CurrentY = 1760:    Printer.CurrentX = 0
    Printer.Print Tab(1); "卡"; Tab(13); "品名"; Tab(42); "成分"; Tab(51); "比率"; Tab(66); "         单价"; Tab(83); "         BOTH"
    Printer.DrawWidth = 2
    Printer.Line (0, 1985)-(11400, 1985)
    Printer.DrawWidth = 1
End SubPrivate Sub Cmdprt_Click()
Dim count      As Integer
Dim ITEMtxt(4) As String
Dim ITEMint(2) As String * 13'On Error GoTo ErrTrap
    Pgno = 0:      count = 0
'    Set Rc1 = Cn.OpenResultset("Select * from ITEMCODE where ITEM11 > '" & 0 & "' ", rdOpenKeyset, rdConcurRowVer)
    xstr1 = "Select * from  ITEMCODE where item11 > '" & 0 & "' order by item11 asc"
    'Set rc1 = DB.OpenRecordset(xstr1, dbOpenDynaset)
    rc1.Open xstr1, cnn, adOpenStatic, adLockOptimistic    If rc1.EOF Or rc1.BOF Then Exit Sub
    Page_Skip
    cury = 2010
    While Not rc1.EOF
        For i = 0 To 4
            ITEMtxt(i) = ""
        Next i
        ITEMint(1) = "":    ITEMint(2) = ""
        ITEMtxt(1) = rc1!item11   ' 前疙内靛
        ITEMtxt(2) = rc1!ITEM12   ' 前疙
        If rc1!item13 <> "_/_/_" Then ITEMtxt(3) = rc1!item13   ' 己盒
        If rc1!item14 <> "___/___/___" Then ITEMtxt(4) = rc1!item14   ' 厚啦
        If rc1!item15 > 0 Then RSet ITEMint(1) = Format(rc1!item15, "#,##0.0000") ' 窜啊
        If rc1!item16 > 0 Then RSet ITEMint(2) = Format(rc1!item16, "#,##0.0000") ' both
        Printer.CurrentY = cury:    Printer.CurrentX = 0
        Printer.Print Tab(1); ITEMtxt(1); Tab(13); ITEMtxt(2); Tab(42); ITEMtxt(3); Tab(51); ITEMtxt(4); Tab(66); ITEMint(1); Tab(83); ITEMint(2)
        count = count + 1:          cury = cury + 220
        If count Mod 5 = 0 Then Printer.Line (0, cury)-(11400, cury):   cury = cury + 10
        If count >= 61 Then
            Title_print
            Head_print
            Page_Skip
            cury = 2010:            count = 0
        End If
        rc1.MoveNext
    Wend
    Title_print
    Head_print
    Page_Skip
    MsgBox "打印完成...", 256, Me.Caption
    SendKeys "{TAB}"
    Exit Sub
ErrTrap:
    Err.Clear
End Sub