access 打印预览 代码_如何一分钟打印完300多个酒店会议桌牌，EXCEL轻松搞定

首先准备好参加会议的名单，第二行开始输入，输完那300多名参会人员名单，点击初始化1按钮，完成数据初始化。

输入花名册名单

PS:这里提一下打印模板页，默认打印A4纸张是不用调整的。模板设置好字体、大小、折线位置。

打印模板A1取值于源于名单A2，需要用到一个小技巧，文字是颠倒，这里用的方法是文本框赋值。

A1和A2来自于名单A2

输入完名单，一般也就是ctrlC+ctrlV，1分钟内就可完成名单输入。可点击打印预览测试一下你的成果。一般没问题直接打印。

会议桌牌打印预览

会议桌牌打印效果

附打印源码思路参考：

轮询赋值给名单A2，直接打印

Sub 按钮1_Click()Dim i As LongIf Sheet2.Range("B1").Value > Sheet2.Range("B3").Value ThenSheet2.Range("B1").Value = 2End IfSheet2.Range("B1").Value = 2For i = 1 To (Sheet2.Range("B3").Value - 1)Worksheets(1).ActivateActiveSheet.PrintPreviewSheet2.Range("C" & Sheet2.Range("B1").Value).Value = "已经打印"Sheet2.Range("B1").Value = Sheet2.Range("B1").Value + 1Sheet2.Range("A2").Value = Sheet2.Range("A" & Sheet2.Range("B1").Value).ValueNextSheet2.Range("A2").Value = "打印完"Worksheets(2).ActivateEnd Sub