VERSION 5.00
Begin VB.Form print_jinhuo 
   Caption         =   "打印進(jìn)貨單"
   ClientHeight    =   2460
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5670
   LinkTopic       =   "Form1"
   ScaleHeight     =   2460
   ScaleWidth      =   5670
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Height          =   2415
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5655
      Begin VB.Timer Timer1 
         Enabled         =   0   'False
         Interval        =   500
         Left            =   3960
         Top             =   1800
      End
      Begin VB.Label Label1 
         Caption         =   "Label1"
         BeginProperty Font 
            Name            =   "幼圓"
            Size            =   15
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   120
         TabIndex        =   1
         Top             =   840
         Width           =   5415
      End
   End
End
Attribute VB_Name = "print_jinhuo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Tr As New ADODB.Recordset
Sub PrintData1()
On Error GoTo HandlePrint
        If MM > 0 Then Tr.MoveFirst
        Printer.ScaleMode = 6
        'Printer.FontName = "SYSTEM"
        Printer.FontSize = 16
        Printer.Print Tab(22); "進(jìn)貨表單"
        Printer.Print Tab(19); "============================"
        Printer.FontSize = 12
        Printer.Print "   ------------------------------------------------------------------------------------------------"
        Printer.Print "    進(jìn)貨號(hào)："; Tr.Fields("jinhuohao"); "    操作員："; Tr.Fields("caozuoyuan"); "    往來單位："; Tr.Fields("wanglaidanwei")
        Printer.Print "   ------------------------------------------------------------------------------------------------"
        For I1 = 1 To MM
        Printer.Print "    藥品名稱："; Tr.Fields("yaopinming"); "    規(guī)格："; Tr.Fields("guige"); "    劑型："; Tr.Fields("jixing"); "    類型："; Tr.Fields("leixing")
        Printer.Print "    生產(chǎn)日期："; Tr.Fields("shengchanriqi"); "    有效期："; Tr.Fields("youxiaoqi"); "    價(jià)格："; Tr.Fields("jiage"); "    數(shù)量："; Tr.Fields("shuliang"); "    金額："; Tr.Fields("jine")
        Printer.Print "    備注："; Tr.Fields("beizhu")
            Tr.MoveNext
        Next
        Printer.Print "  --------------------------------------------------------------------------------------------------"
        Printer.Print " "
        Printer.EndDoc
        Exit Sub
HandlePrint:
        MsgBox "打印出錯(cuò)，請(qǐng)檢查您的計(jì)算機(jī)是否已經(jīng)正確的和打印機(jī)連接！", vbOKOnly + vbInformation, "提示"
End Sub
Sub PrintData()
On Error GoTo HandlePrint
        If MM > 0 Then Tr.MoveFirst
        Printer.ScaleMode = 6
        'Printer.FontName = "SYSTEM"
        Printer.FontSize = 16
        Printer.Print Tab(22); "進(jìn)貨表單"
        Printer.Print Tab(19); "============================"
        Printer.FontSize = 12
        Printer.Print "   ------------------------------------------------------------------------------------------------"
        Printer.Print "    進(jìn)貨號(hào)："; Tr.Fields("jinhuohao"); "    操作員："; Tr.Fields("caozuoyuan"); "    往來單位："; Tr.Fields("wanglaidanwei")
        Printer.Print "   ------------------------------------------------------------------------------------------------"
        Printer.Print "    藥  品  名  稱"; "      規(guī)  格"; "     價(jià)  格"; "     數(shù)  量"; "     金  額"; "     批發(fā)價(jià)"; "     零售價(jià)"
        For I1 = 1 To MM
        Printer.Print "     "; Tr.Fields("yaopinming"); Tab(25); Tr.Fields("guige"); Tab(37); Tr.Fields("jiage"); Tab(48); Tr.Fields("shuliang"); Tab(59); Tr.Fields("jine"); Tab(70); Tr.Fields("pifajia"); Tab(81); Tr.Fields("lingshoujia")
            Tr.MoveNext
        Next
        Printer.Print "  --------------------------------------------------------------------------------------------------"
        Printer.Print " "
        Printer.EndDoc
        Exit Sub
HandlePrint:
        MsgBox "打印出錯(cuò)，請(qǐng)檢查您的計(jì)算機(jī)是否已經(jīng)正確的和打印機(jī)連接！", vbOKOnly + vbInformation, "提示"
End Sub

Private Sub Form_Load()
   'set the window to the middle
   Me.Left = (Screen.Width - Me.Width) / 2
   Me.Top = (Screen.Height - Me.Height) / 2
   
On Error GoTo handle
    Label1.Caption = "正在打印進(jìn)貨單，請(qǐng)稍候..."
     With Tr
         Set .ActiveConnection = SGWConnection
         .CursorLocation = adUseServer
         .CursorType = adOpenKeyset
         .LockType = adLockOptimistic
         .Source = "Select * from jinhuo order by id desc"
         .Open
    End With

    Timer1.Enabled = True
    Exit Sub
handle:
    MsgBox "無法與數(shù)據(jù)庫服務(wù)器建立正確的連接，請(qǐng)檢查網(wǎng)絡(luò)或ODBC設(shè)置！", vbOKOnly + vbInformation, "提示"
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error GoTo exitme
    Tr.Close
    Set Tr = Nothing
    Exit Sub
    
exitme:
End Sub

Private Sub Timer1_Timer()
    PrintData
    Unload Me
End Sub