vb控制打印機(jī)自動(dòng)打印表格-文庫(kù)吧資料
2024-08-29 23:54本頁(yè)面
【正文】 Else present = present + 1 If 0 Then sheet(2).Cells(1, 2) = sheet(1).Cells(present, ) 39。繼續(xù)打印 If Dir(C:\) = Then MsgBox ！^^請(qǐng)打開(kāi)要打印的表格^^！ Else = = True End IfEnd SubPrivate Sub Command5_Click() 39。 present 1 amp。 Chr(10) amp。關(guān)閉退出表格 If Dir(C:\) Then auto_close Set excel = Nothing (True) End If End SubPrivate Sub Command3_Click() 39。檢定日期 If 0 Then sheet(2).Cells(12, 3) = sheet(1).Cells(, ) 39。分度號(hào) If 0 Then sheet(2).Cells(7, 2) = sheet(1).Cells(, ) 39。 設(shè)備廠址 If 0 Then sheet(2).Cells(5, 2) = sheet(1).Cells(, ) 39。產(chǎn)品名稱 If 0 Then sheet(2).Cells(3, 3) = sheet(1).Cells(, ) 39。設(shè)置表2為活動(dòng)表 If 0 Then sheet(2).Cells(1, 2) = sheet(1).Cells(, ) 39。打印時(shí)間間隔End SubPrivate Sub Command2_Click()EndEnd Sub建立一個(gè)FORM1，界面如下：然后在其中輸入如下程序：Dim excel As ObjectDim workbook As ObjectDim sheet As ObjectDim present%Private Sub Command1_Click() 39。檢定日期 death = 9 39。參考 result = 7 39。出廠地址 modle = 5 39。設(shè)備名稱 number = 3 39。打印張數(shù) uint = 1 39。有效期至 MsgBox ！^^ 參數(shù)修改成功^^！End SubPrivate Sub Form_Initialize() 39。檢定日期 time = Val() 39。參考 result = Val() 39。出廠地址 number = Val() 39。設(shè)備名稱 modle = Val() 39。打印時(shí)間Private Sub Command1_Click() End SubPrivate Sub Command3_Click() uint = Val() 39。檢定日期 Public cel As Integer 39。檢定結(jié)果 Public dates As Integer 39。設(shè)備型號(hào) Public
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1