我不知道为什么现在不能上 传附件.设编号样式NO:WWJG17000001放在A1单元格,我写了一个VBA按钮程序,每按一下就打印一次,一次一份当前编号的内容,打印完成后编号自动加一,17的年份按你的需要或你的首次编号你自己输入吧,不在程序中作处理:Sub A1编号打印后加一_Click() Number = [A1] ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True [A1] = Left(Number, 9) & Format(Right(Number, 6) + 1, ＂000000＂) End Sub

不知道你是想要自动生成一些什么编号,但是你可以试试以下方式:文件打印预览——设置——页眉页脚——自定义页脚\页眉 excel本身带有页码、日期、时间、文件路径等标签,你也可以自己填写需要的编号

新建EXCEL文档,其他步骤同上.打开需要打印的WORD文档,点击“邮件”菜单,在“开始邮件合并”选项栏里,选择“选择收件人”--“使用现有列表” 在弹出的窗口中找到刚刚建立的Excel文件,弹出新窗口后点击“确定” 把光标放在文档中需要插入序号的位置,在“编写和插入域”选项栏中选择“插入合并域”,点击里面的“序号”两个字,即在在此位置插入“《序号》” 在“完成“选项栏中选择“完成并合并”--“打印文档”,在弹出对话框中如果选择“全部”就会自动打印50份,并自动编号,如果需要打印自定义的份数,可以在第三项“从___到___”自己定义.

假设编号的位置在K1单元格,按ALT+F11调出VBA窗口,添加一个模块,把下面代码复制进去.然后回到EXCEL窗口,使用“窗体”工具栏,在屏幕上画一个按钮,用右键给这个按钮指定宏(就是下面这个“打印”宏).Sub 打印() s = Range(＂k1＂) '上次打印的份数 ActiveWindow.SelectedSheets.PrintOut '打印当前页 Range(＂k1＂) = Left(s, 4) & Right(s, 10) + 1 '让份数加一 End Sub

假设编码在G1单元格,使用下面代码可实现打印和自动编码递增.按ALT+F11打开VBA窗口,插入一个模块,把下面代码复制进去.回到excel窗口,按“视图-工具栏”,点“窗体”,调出“窗体”工具栏,在上面选一个按钮,添加到表格上,并指定宏为“打印”.使用时,每点击一下添加的按钮,就会打印一次,并使编号自动加一.Sub 打印() ActiveWindow.SelectedSheets.PrintOut s = Val(Range(＂g1＂)) s = s + 1 Range(＂g1＂) = ＂'＂ & Right(＂0000＂ & s, 5) End Sub 如有疑问,可以H我.

可以通过设置页眉页脚实现呀.

把三处”000”& “00”& “0”& 删除即可

光靠excel难以实现,应为你打印的东西很难再excel单元格做界定,vba代码有可能,但也需要动态刷新,而且很复杂

Private Sub Workbook_BeforePrint(Cancel As Boolean) Sheets(＂Sheet1＂).Range(. 你在EXCEL编辑中是不会执行的 至于你所说的打一次编号就自动加一,这个所谓的.

用ctrl键的帮助就可以完成,具体操作如下:1、左手按住ctrl后,不要忪手2、打开所要打印的文档所存放的文件夹3、右手用鼠标点击想要打印的多个word文档4、选中后,再点鼠标右键选择“打印”即可连续打印刚刚选中的文档了