[LISP程序]：批量打印桌签的excel vba程序

cces

Public Num_Zhuoqian As Integer


Sub 批量打印()
    Call 桌签个数

    Sheets("数据库").Select '选中数据库工作表。
   

If (Num_Zhuoqian > 0) Then
        
    For i = 1 To Num_Zhuoqian
   
       Sheets("数据库").Select

       Cells(2, 1).Value = Cells(i + 1, 2).Value '依次将其它桌签数据调用

       Sheets("打印").Select

    ActiveWindow.SelectedSheets.PrintOut '执行一下打印操作


    Next '进入下一个循环。
    ActiveWorkbook.Save '保存当前工作簿文档。
   
  Else
  
      MsgBox "批量打印数为0", vbInformation + vbOKOnly, "警告信息"

  End If
   ' Application.Quit '退出Excel。


  End Sub '宏的结束符号。



Sub 单独打印() '建立一个名称为“单独打印”的宏。


    Sheets("数据库").Select '选中数据库工作表。
   
    k = 0
   

If (Cells(2, 3).Value <> "") Then
        
  
       Sheets("数据库").Select

       Cells(2, 1).Value = Cells(2, 3).Value '依次将其它桌签数据调用

       Sheets("打印").Select 。

    ActiveWindow.SelectedSheets.PrintOut '执行一下打印操作
     ActiveWorkbook.Save '保存当前工作簿文档。
   
  Else
  
      MsgBox "单独打印没有", vbInformation + vbOKOnly, "警告信息"

  End If
   

  End Sub '宏的结束符号。


Sub 桌签个数() '建立一个名称为“京内外个数”的宏。

    Sheets("数据库").Select '选中数据库工作表。
   
    k = 0
    j = 400
   
    For i = 2 To j
       If (Cells(i, 2).Value <> "") Then
             k = k + 1
       End If
    Next
    Num_Zhuoqian = k
   
  End Sub '宏的结束符号。