vb控制打印機自動打印表格(已改無錯字)
2022-09-13 23:54:21 本頁面
【正文】 Sub Command6_Click() 39。下一張 If Dir(C:\) = Then MsgBox ！^^請打開要打印的表格^^！ Else present = present + 1 If 0 Then sheet(2).Cells(1, 2) = sheet(1).Cells(present, ) 39。單位名稱 If 0 Then sheet(2).Cells(2, 2) = sheet(1).Cells(present, ) 39。產(chǎn)品名稱 If 0 Then sheet(2).Cells(3, 3) = sheet(1).Cells(present, ) 39。設(shè)備編號 If 0 Then sheet(2).Cells(4, 2) = sheet(1).Cells(present, ) 39。 設(shè)備廠址 If 0 Then sheet(2).Cells(5, 2) = sheet(1).Cells(present, ) 39。設(shè)備型號 If 0 Then sheet(2).Cells(6, 2) = sheet(1).Cells(present, ) 39。分度號 If 0 Then sheet(2).Cells(7, 2) = sheet(1).Cells(present, ) 39。檢定結(jié)果 If 0 Then sheet(2).Cells(11, 2) = sheet(1).Cells(present, ) 39。檢定日期 If 0 Then sheet(2).Cells(12, 3) = sheet(1).Cells(present, ) 39。有效期至 End IfEnd SubPrivate Sub Command7_Click() 39。上一張 If Dir(C:\) = Then MsgBox ！^^請打開要打印的表格^^！ Else present = present 1 If present = 0 Then present = 1 If 0 Then sheet(2).Cells(1, 2) = sheet(1).Cells(present, ) 39。單位名稱 If 0 Then sheet(2).Cells(2, 2) = sheet(1).Cells(present, ) 39。產(chǎn)品名稱 If 0 Then sheet(2).Cells(3, 3) = sheet(1).Cells(present, ) 39。設(shè)備編號 If 0 Then sheet(2).Cells(4, 2) = sheet(1).Cells(present, ) 39。 設(shè)備廠址 If 0 Then sheet(2).Cells(5, 2) = sheet(1).Cells(present, ) 39。設(shè)備型號 If 0 Then sheet(2).Cells(6, 2) = sheet(1).Cells(present, ) 39。分度號 If 0 Then sheet(2).Cells(7, 2) = sheet
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號-1