vb控制打印機(jī)自動(dòng)打印表格(編輯修改稿)
2024-09-12 23:54 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 Set workbook = (c:\) Set sheet = = True auto_open (2).Activate 39。設(shè)置表2為活動(dòng)表 If 0 Then sheet(2).Cells(1, 2) = sheet(1).Cells(, ) 39。單位名稱 If 0 Then sheet(2).Cells(2, 2) = sheet(1).Cells(, ) 39。產(chǎn)品名稱 If 0 Then sheet(2).Cells(3, 3) = sheet(1).Cells(, ) 39。設(shè)備編號(hào) If 0 Then sheet(2).Cells(4, 2) = sheet(1).Cells(, ) 39。 設(shè)備廠址 If 0 Then sheet(2).Cells(5, 2) = sheet(1).Cells(, ) 39。設(shè)備型號(hào) If 0 Then sheet(2).Cells(6, 2) = sheet(1).Cells(, ) 39。分度號(hào) If 0 Then sheet(2).Cells(7, 2) = sheet(1).Cells(, ) 39。檢定結(jié)果 If 0 Then sheet(2).Cells(11, 2) = sheet(1).Cells(, ) 39。檢定日期 If 0 Then sheet(2).Cells(12, 3) = sheet(1).Cells(, ) 39。有效期至 Else MsgBox EXCL已打開！ End IfEnd SubPrivate Sub Command2_Click() 39。關(guān)閉退出表格 If Dir(C:\) Then auto_close Set excel = Nothing (True) End If End SubPrivate Sub Command3_Click() 39。暫停打印 If Dir(C:\) = Then MsgBox ！^^請(qǐng)打開要打印的表格^^！ Else = False MsgBox ！^^打印暫停^^！ amp。 Chr(10) amp。 ！^^已打印 amp。 present 1 amp。 張^^！ End IfEnd SubPrivate Sub Command4_Click() 39。繼續(xù)打印 If Dir(C:\) = Then MsgBox ！^^請(qǐng)打開要打印的表格^^！ Else = = True End IfEnd SubPrivate Sub Command5_Click() 39。開始打印 If Dir(C:\) = Then MsgBox ！^^請(qǐng)打開要打印的表格^^！ Else present = 0 = 1 = = True End IfEnd SubPrivate
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1