Sub 打印() ActiveWindow.SelectedSheets.PrintOut s = Val(Range("g1")) s = s + 1 Range("g1") = "'" & Right("0000" & s, 5) End Sub
第2个回答 2013-05-13
同时按Alt和F11,出来VB界面,在左上窗口找到Thisworkbook,双击它,在右边窗口粘贴如下代码: Private Sub Workbook_BeforePrint(Cancel As Boolean) Sheets("Sheet1").Range("A2") = Sheets("Sheet1").Range("A2") + 1 End Sub