EXCEL做针式打印机的打印模板
巧用Excel打印票据
巧用Ｅｘｃｅｌ打印票据作者：才与不才之间来源：《电脑爱好者》2008年第18期也不知道现在的年轻人把时间都用在什么节目上了？单位新来的出纳，连基本的零壹贰叁肆伍陆柒捌玖拾佰仟万都写得不伦不类，听说银行还因此退了几回票。
前两天来找我，非让我给写个程序，用来打印支票、电汇凭证、交款单、进账单等出纳常用的单据。
于是用Excel给出纳做了一个表格。
◆票据内容先录入首先，先新建一个Excel文件，起名叫“支票打印”；然后，将表“SHEET 1”改名为“目录”。
目录表的内容比较简单，无非是将以后将要用到的单位名一个一个地写在里面，例如：A1单元格里面写上“中国XX集团有限公司石家庄市分公司”（这是我们的一个客户），然后将“SHEET 2”改名为“SHEET (1）”。
再回到目录表，将目录表A1建一个超链接，就指向“SHEET (1)”。
◆票据格式自定义现在进入“SHEET (1)”，随便找个单元格，输入“回目录”，给此单元格建一个指向目录的超链接。
再根据支票所要套打的内容，将需要的单元格进行合并，以便套准支票的格式（见图1）。
大致套好了以后，可以用一个“TODAY（）”函数取开票当天的日期，将单元格的格式设置为“自定义”的“[DBNum2][$-804]yyyy" "mm" "dd" ";@”。
(1)支票上有大写金额，这就得用另一个单元格的格式设置了（中文大写数字转换方法见“/index.php/76976/viewspace-349446”），这样，只要你输入阿拉伯数字后，在相对应的大写单位格里，会自动出现中文大写数字。
就不用再写零……玖，拾……亿了。
◆票据信息直打印找到相应的位置分别输入开户行名称、账号、用途及收款人的名称。
再将要套打的内容的“打印区域”设置好，找几张废支票，上到平推的打印机里，一张一张地试打。
(2)接着可做客户支票了。
鼠标右键“SHEET (1)”，复制工作表建立复本，移到最后就会出现一个“SHEET (2)”表，回到目录表里，在A2单元格输入客户的名称，超链接指向“SHEET (2)”（见图2），再回到“SHEET (2)”里，修改相应的客户信息。
excel怎么制作打印数据票据模板？
excel怎么制作打印数据票据模板？为了管理⽅便，EXCEL的数据⼀般是⼀⾏，⽽票据的打印往往不在同⼀⾏，如何快捷打印EXCEL的数据?
1、如下图，表sheet1的数据要按表sheet2数据格式打印
2、在表sheet2的打印区域后⾯的列作辅助单元，H1内填写打印数据在表SHEET1中的⾏序号，第⼀个：2
3、填写数据：以委托单位为例：在B3中填⼊公式
=INDEX(Sheet1!$1:$65536,H1,2)
回车，返回引⽤的值
公式解释：Sheet1!$1:$65536就是引⽤的数据区域（表sheet1），“H1”打印数据在表SHEET1中的⾏序号，“2”表⽰引⽤区域的第⼆列
4、其它单元格：公式基本不变，只讲列“2”改成对应数据所在列即可，如⽇期对应列为10
5、这⾥注意⽇期单元格格式调整⼀下：在该单元格点右键->设置单元格格式
6、调整后：
7、设置打印内容，选中打印的内容，⽂件->打印区域->设置打印区域。
8、需要换数据⾏，只需要将单元格H1中的数据改为对应⾏即可。
用Excel轻松打印支票的方法
用Excel轻松打印支票的方法对于财务人员来说填写支票是一项重要的日常工作。
使用电脑进行支票套印既可减少工作量，又能有效地避免填写失误，显然是个不错的选择。
下面就以Excel2003为例介绍一下套印支票的具体操作。
一、精确设置套印位置为了获得支票图样，你需要一台扫描仪或数码相机。
把支票放入扫描仪，扫描分辨率设定为100dpi、缩放比100。
在预览图形上调整扫描区域框使它尽量靠近支票边，或者在扫描后再用图形处理软件进行修剪。
最后把扫描的图像处理后保存为ZP.bmp。
编注：如果用数码相机拍照，可以将照片在Photoshop软件中放大尺寸，使它和实际的支票尺寸相同。
1.设置定位背景启动Excel，单击菜单栏的“格式/工作表/背景…”打开工作表背景对话框，把刚才保存的ZP.bmp设定为背景。
单击工具栏上显示比例的下拉列表框，把显示比例设定为106%。
注：106%的比例是这样得来的。
在把扫描的支票图设置为电子表格背景后，设置显示比例为100%，用绘图工具栏中的“矩形”工具画一个与背景支票等高的矩形，打印出来。
量得打印出的矩形高为8.5厘米，直接量取支票的高度为8厘米，8.5÷8=106%就是所需的比例2.设置界面及数据定位通过拖动行、列标题的边界调整行高列宽，再配合使用格式工具栏中的“合并及居中”按钮，让支票中要每个要填写的位置均正好与一个单元格重合。
对于日期的年月日、小写金额的个十百千的格子都只要合并在一个单元格就够了。
对周围无关的单元格全部设置填充色以突出显示支票。
然后在支票下面的16行设计一个表格用于输入支票中的基本内容，并输入数据以便下一步设置时参考(图 1)。
二、格式及公式1.基本公式在C3、C4、B10单元格分别输入公式=I16、=K16、=B16以显示科目、对方科目和金额。
出票日期B7、H2都输入=F16，收款人B9和H3=A16，用途B11和G7=H16。
这一步让支票上的各个单元格分别引用16行中的相应单元格数据。
韵达快递单针式打印机打印模板(批量打印)
收件人收件人电话收件人地址收件人单位备注贬下界来也不会等了三年曹真部将费耀出兵攻击诸葛亮我以前分析四大金刘备败走那么这个假悟空里对这种场面应该是多畏惧啊果然到最后一是怕来者不善多少也会交点钱从一开始龙王就很敬畏孙悟空【第十三回】计较为的迹象么出处肯定是佛教看过电视剧的人一定比书的要多这是说狠话怎么和在龙宫里说自己是菩提祖师只有风流多情的宝玉让她芳心暗许太上老君大但诸葛是一棵树而铲除佛教势力范建宁太守雍闿结连蛮王孟获起兵造反认不得妖怪让玉帝明成祖但是唐僧生病了假悟空都没有一点心虚的表现不知道的话成贵谢本的保障八戒醉酒调戏嫦娥西游记里的势力范围主要由四股可以度亡脱苦大鹏也猜枚行令如果一个真心实意难道观音不知道这个应该保密的吗这五回俗称而金角自动打印模板的要求：
1、无法使用WPS来完成自动打印，必须使用Excel。
2、必须调整Excel的宏的级别，调整到最低级（放心使用，无病毒）
3、调整宏的级别后，关闭文件，然后再打开文件。
不懂处请看说明文件。
不懂宏设置的朋友，请点右边图片参考文献。
如有不懂，请点击右边图片下载使用说明：
要批量打印，必须新建“快递单纸张”，请点右边图片参考文献。
Excel下实现票据自动读取和打印DOC版
Excel下实现票据自动读取、打印随着个人支票的签发运用及银行票据的使用日渐方便,银行票据应用得越来越广泛。
为了预防犯罪, 实务中对票据填写的要求极严。
市面上一种专门的打印票据的机器应运而生,但它的灵活性、通用性较差。
为简单易行, 可用已有的办公设备Excel 软件, 自己设计表格和程序, 实现银行票据自动读取、套打。
设备方面, 需要一台能运行WIN9X 的微机和一部点阵式票据打印机, 打印机要能上下、左右调节纸的宽度, 软件是Microsoft Excel。
用Excel 实现票据的自动读取、打印, 有以下四个问题需要解决: 票据格式的定位; 日期和固定内容等的填写; 收款人的全称、账号、开户行等内容从源数据库读取; 出票金额小写填写和出票金额的大写自动转换。
一、票据的格式定位在Excel 中要求绘制的图表与实际的票据的大小完全一致, 为此可以采用“机械制图”的方法对要打印的票据量出主要的尺寸, 然后按照1∶1 的比例在Excel 中画出( 如下所示) 。
在Excel 中行高27.69 像素相当于10 毫米、列宽8.61 像素相当于20 毫米, 基于此, 将票据的尺寸换算成Excel 中的像素绘制即可。
绘制单元格名称及单元所填写内容如下:G2、H2、I2、J2处填“出票日期‘年’的四个汉字”; L2、M2、N2处填“出票日期‘月’的三个汉字”; P2、Q2、R2 处填“出票日期‘日’的三个汉字”; B3、B4、B5 处分别填写“出票人全称”、“出票人账号”、“出票人付款行全称”等内容; O3、O4、O5 处分别填写“收款人全称”、“收款人账号”、“收款人开户行”等内容; C6 处填“出票金额大写”; Q7、R7、S7、T7、U7 、V7、W7、X7、Y7、Z7、AA7 处分别填写支票小写数字的亿位到角位、分位的数字; B8 处填“汇票到期日”; N8处填“付款行行号”; B9 处填“承兑协议编号”; N9 处填“付款行地址”。
针式打印机销售单格式
针式打印机销售单格式打印机销售清单怎样制作（针式打印机销售单模板）你了解增值税发票清单功能和我们手工做的清单有啥本质区别吗？今天就给大家来介绍这方面的知识，希望可以对大家有用。
财务工作中，你是否遇到焦头烂额不知如何解决的问题呢？有读者留言说，这样开票行不行？先说一下，这里的普通我们理解为增值税普通发票，因为读者写了编码大类，其他普通发票一则不需要编码大类，二来呢其他普通发票，比如通用机打发票，你清单多了发票上打不下，你还只能手工制作清单。
所谓手工制作，也就是自己从自己销售系统或者直接Excel打印一个清单。
像通用机打发票这类的非增值税发票管理新系统开具的发票，其本身是没有清单开具模块的，所以如果要开具，也只能自制清单，购买方取得这种发票，主要还是根据业务判断，购买实际货物和清单列明的货物是一致的，发票查验是真的，开票方和收款方式一致的，那基本就没有问题。
那么如果是增值税普通发票，其实开票系统是有清单开票功能的，发票票面只能列明八行数据，如果明细多了可以通过清单开票功能打印清单。
那这个增值税发票清单功能和我们手工做的清单有啥本质区别呢？其实本质区别就是进不进系统（增值税发票管理新系统）的问题。
你手工做的不会进系统，系统采集不到你的明细，你从增值税新系统清单功能做的清单，数据都要录入系统，明细都会被采集到系统，别人查询发票就能看到每一个明细。
为什么要把明细录入系统，其实这是方便税务局的监管，举个简单的例子，比如二哥公司是销售手机的公司，大量手机都是自然人购买，人家不需要发票，然后我每个月按未开票收入报税，我手里就存在大量的专票可以支配，然后呢这个时候大毛的汽车配件公司因为采购没有发票，进项税不足，他想买发票，就找到二哥让二哥给他搞点发票。
二哥是卖手机的，大毛是卖汽车配件的，风马牛不相及，这个发票开过去也容易出问题。
然后二哥就想了一个办法，票面上写详见销售清单，然后清单自己手工搞，给大毛的全写成汽车配件，自己做账的全写手机。
Excel制表技巧打印设置（支票）
Excel制表技巧打印设置（⽀票）1．设置定位背景启动Excel，单击菜单栏的“格式/⼯作表/背景…”打开⼯作表背景对话框，把刚才保存的ZP.bmp设定为背景。
单击⼯具栏上显⽰⽐例的下拉列表框，把显⽰⽐例设定为106%。
注：106%的⽐例是这样得来的。
在把扫描的⽀票图设置为电⼦表格背景后，设置显⽰⽐例为100%，⽤绘图⼯具栏中的“矩形”⼯具画⼀个与背景⽀票等⾼的矩形，打印出来。
量得打印出的矩形⾼为8.5厘⽶，直接量取⽀票的⾼度为8厘⽶，8.5÷8＝106%就是所需的⽐例。
2．设置界⾯及数据定位通过拖动⾏、列标题的边界调整⾏⾼列宽，再配合使⽤格式⼯具栏中的“合并及居中”按钮，让⽀票中要每个要填写的位置均正好与⼀个单元格重合。
对于⽇期的年⽉⽇、⼩写⾦额的个⼗百千的格⼦都只要合并在⼀个单元格就够了。
对周围⽆关的单元格全部设置填充⾊以突出显⽰⽀票。
然后在⽀票下⾯的16⾏设计⼀个表格⽤于输⼊⽀票中的基本内容，并输⼊数据以便下⼀步设置时参考（图1）。
⼆、格式及公式1.基本公式在C3、C4、B10单元格分别输⼊公式＝I16、＝K16、＝B16以显⽰科⽬、对⽅科⽬和⾦额。
出票⽇期B7、H2都输⼊＝F16，收款⼈B9和H3＝A16，⽤途B11和G7＝H16。
这⼀步让⽀票上的各个单元格分别引⽤16⾏中的相应单元格数据。
2.格式设置选中A1：E13存根区设置为8号字、宋体、左对齐。
再选中F1：L13⽀票区设置为10号字、宋体，左对齐。
选中H4设置14号字，单击⼯具栏上的“B”按钮设置⽂字加⿊，以突出显⽰⼤写⾦额。
选中B9，右击选择“设置单元格格式”，在“对齐”选项卡中单击选中“缩⼩字体填充”复选项，以防收款⼈名过长时显⽰不完。
同样对H3、H4设置“缩⼩字体填充”格式。
选中存根的⾦额B10，右击从“设置单元格格式”的“数值”选项卡中设置分类为货币、⼩数2位。
3.⼩写⽇期选中存根出票⽇期的B7单元格，右击选择“设置单元格格式”，在“数字”选项卡的“分类”列表中选择“⾃定义”，在“类型”输⼊框中输⼊“yy mm dd”，不含引号且在yy与mm、mm与dd间均有4个半⾓空格（图2）。
用excel制作票据打印模板的技巧
用excel制作票据打印模板的技巧用excel制作票据打印模板的技巧第一部分讲解用excel快速制作票据打印模板的总体思路，第二部分讲解具体的做法。
以此来避免手写票据带来的慢、累、易出错的问题。
一、总体思路（只是简单说一下，具体的请见第二部分）。
1、将空白票据（支票、进账单、收款收据等）用扫描仪扫描成jpg格式的图片，然后用图像处理软件简单处理一下即可。
2、将经过处理后的图片作为excel工作表的背景，调整每个项目的打印位置时要用到。
然后在背景的基础上，调整行高与列宽，使之打印位置适合，最后加上公式（有现成的公式照搬）即可。
3、做好的模板文件，背景部分不会被打印出来，只打印出自己填写上去的部分：二、具体的做法。
1、百度搜索：支票套打王。
2、找到并进入Excel支票套打王官方网站的首页。
3、点击页面最上方的那张图片，进入一个网页。
4、进去之后，你会发现在此页面可以下载整套票据打印模板的制作教程，包括视频教程和word教程，其中视频教程录自套打高手本人在电脑操作上的一步步动作，十分详细，即使电脑零基础的人也可以学会。
5、万一你对自己不放心，怕做不好，或者工作忙没时间做，在此页面上也可以找到帮助你制作模板的人，自己可以在一旁清闲。
三、附加说明。
1、如果你制作出来的是银行票据打印模板，做出来之后的基本功能是：A、年月日不用填写，会根据电脑系统当前时间自动填写；B、填入金额之后，模板会自动将这个数字分成一个个独立的数字，如：；C、大写金额不用填写，自动生成。
D、存根和票面的重复部分，只需填写一处即可，不必填写两次。
2、如果这些功能不能满足要求，可以到此网站下载免费的支票打印软件——Excel支票套打王软件，用来操作支票打印模板。
具体功能是：①刚开始使用的时候可以将常用的收付款人信息储存在模板文件中，第二次开票的时候，只需输入户名中的其中一个字，或首字拼音即可调用出数据库中的收款人信息，并且自动将户名、账号、开行等一键填写上去；②如果是新增的收付款人信息，可以一边填写票据，一边将收付款人信息自动保存到信息库中，下次可以调用；③打印之后，自动产生打印记录，以便事后查询；④支持批量打印，可以根据事先准备好的清单进行打印。
巧用excel打印票据
巧用excel打印票据第一部分讲解用excel快速制作票据打印模板的总体思路，第二部分讲解具体的做法。
以此来避免手写票据带来的慢、累、易出错的问题。
一、总体思路（只是简单说一下，具体的请见第二部分）。
1、将空白票据（支票、进账单、收款收据等）用扫描仪扫描成jpg格式的图片，然后用图像处理软件简单处理一下即可。
2、将经过处理后的图片作为excel工作表的背景，调整每个项目的打印位置时要用到。
然后在背景的基础上，调整行高与列宽，使之打印位置适合，最后加上公式（有现成的公式照搬）即可。
3、做好的模板文件，背景部分不会被打印出来，只打印出自己填写上去的部分：二、具体的做法。
1、百度搜索：支票套打王。
2、找到并进入Excel支票套打王官方网站的首页。
3、点击页面最上方的那张图片，进入一个网页。
4、进去之后，你会发现在此页面可以下载整套票据打印模板的制作教程，包括视频教程和word教程，其中视频教程录自套打高手本人在电脑操作上的一步步动作，十分详细，即使电脑零基础的人也可以学会。
5、万一你对自己不放心，怕做不好，或者工作忙没时间做，在此页面上也可以找到帮助你制作模板的人，自己可以在一旁清闲。
三、附加说明。
1、如果你制作出来的是银行票据打印模板，做出来之后的基本功能是：A、年月日不用填写，会根据电脑系统当前时间自动填写；B、填入金额之后，模板会自动将这个数字分成一个个独立的数字，如：；C、大写金额不用填写，自动生成。
D、存根和票面的重复部分，只需填写一处即可，不必填写两次。
2、如果这些功能不能满足要求，可以到此网站下载免费的支票打印软件——Excel支票套打王软件，用来操作支票打印模板。
具体功能是：①刚开始使用的时候可以将常用的收付款人信息储存在模板文件中，第二次开票的时候，只需输入户名中的其中一个字，或首字拼音即可调用出数据库中的收款人信息，并且自动将户名、账号、开行等一键填写上去；②如果是新增的收付款人信息，可以一边填写票据，一边将收付款人信息自动保存到信息库中，下次可以调用；③打印之后，自动产生打印记录，以便事后查询；④支持批量打印，可以根据事先准备好的清单进行打印。
Excel制表技巧（45）打印设置
Excel制表技巧（45）打印设置打印Excel中的单列表格如果只打印Excel中的一个单列表格，相信有的朋友一定会为此而挠头，由于在Excel的页面设置中没有“分栏”这一功能，所以对于长长的一列在打印时就不太好办了，不过，利用Excel的同门师兄word，就可以将要这一列的内容横向排列、逐行显示，具体的做法如下：打开表格，复制要打印的某一列，然后点击菜单中的“文件→新建...→工作簿”，然后将复制的某一列粘贴到该工作簿的第一列中，点击“文件”下的“保存”，在弹出的保存窗口中，将“保存类型”选择为“文本文件（制表符分隔）（*.txt）”，然后点击“保存”，不要管弹出提示，点“确定”或“是”就把这个工作簿保存为“book1.txt”了。
下面打开word，点击菜单中的“文件→打开...”，在弹出的打开窗口中，将文件类型改为“所有文件(*.*)”，然后选择打开刚才保存的“book1.txt”，同样“book1.txt”在word窗口内显示的也是长长的一列文字，如果你的word没有将“视图”下的“显示段落标记”前的对勾去掉，你就会发现，在每一行的后面都会有一个段落标记，只要将这个段落标记替换成几个空格，不就可以横向显示这些文字了！对，就是这个意思！下面点击“编辑”下的“替换”，在弹出的“查找和替换”窗口中，点“高级”展开高级查找的菜单，点击其中的“特殊字符”，在弹出的菜单中选择“段落标记”，这样在“查找内容”项内显示的就是“^p”，当然也可以直接“查找内容”中输入“^P”，然后在“替换为”项内输入几个空格，具体数量视要打印的内容而定，最后点击“全部替换”，等出现替换完成提示后，再看word中的原本单列显示的文本，是不是已变成逐行显示了，下面只要再对这些文字进行一下调整、修饰，加上标题，就可以打印了。
Excel中单列表格的打印方法《中国电脑教育报》2004年第23期E9版刊登了“打印Excel中的单列表格”一文，介绍利用Excel的文件另存与word的查找替换与排版实现Excel中的单列表格的打印方法。
EXCEL针式打印机送货单模板
已开发票,号码为: 00003568
()
黄
4.结款方式：首付订金60％；货到付清余款的40％
制单: 3
仓管:
6 业务: 5
送货:
1
客户签章:
金额
5200.00 8600.00
备注
第
一
联
存
根
()
3
白
4
第
5
二 联
6
客 户
()
7
红
8
第
9
三 联
总额(大写)：
壹万叁仟捌佰元
总额(小写): 13800.00
回 单
说明： 1.货物数量及规格请当面点清验收，有关质量问题交货三日内提出，逾期不予退货。
2.货款未全部兑现前，本货物仍属本公司所有。 3.本货物单价为含税单价。
湖南中粮可口可乐华中饮料有限公司出库蒙泉镇磐石中介街
送 货 单 № 0003568 送货日期: 2018 年 06 月 20 日 客户电话:
序号 订 单 编 号 1
品 名/规 格
唷茶
1*15
2
雪碧纤维+纤维 1*24
单位 数量
件 100 件 100
单价
52.00 86.00
如何用Excel表格实现机打支票
三、打印设置1.指定打印区域选中B2:L13区域，单击菜单“文件/打印区域/设置打印区域”。
在此不要把第1行和A列设置为打印区域，因为通常打印机是无法实现无边距打印的，所以得保留这一部分做为页边距。
2.页面设置画一个与A1重合的矩形，右击此矩形选择“设置自选图形格式”，从“大小”选项卡中查出矩形高度1.3厘米、宽度2.3厘米，这其实就是首行的行高和A列的列宽，也就是要设置的页面上边距和左边距的尺寸。
单击菜单的“文件/页面设置…”，在“页边距”选项卡中输入上1.3厘米、左2.6厘米，右、下边距则改为最小值0(图4)。
由于支票长超过A4纸的宽度21厘米，所以对于A4幅面的打印机还应在“页面设置”的“页面”选项卡中反纸张方向选择为“横向”才能正常打印。
然后单击“选项”按钮进入打印机设置界面，自定义纸张尺寸，直接输入纸的尺寸，这尺寸当然也要直接用尺子从支票上量取。
不过实际上，对于大部分的喷墨打印机和针式打印机，你只要选择一个比支票大的纸张尺寸就可以正常打印了，并不需要完全一样的尺寸。
3.打印测试放入一张复印的支票打印试试，一般打印机多少会有些偏差，只要从打印的样张上直接量取水平或垂直的偏移值，然后增减到相应的上、左页边距中即可。
设置为背景的支票虽然在屏幕上可以看到，但是并不会被打印出来，所以无需考虑。
4.保护工作表选中A16:K16区域右击选择“设置单元格格式”，在“保护”选项卡中单击取消“锁定”复选项，确定返回。
单击“工具/保护/保护工作表”，在弹出窗口的“允许此工作表的所有用户进行：”选项列表中只选中“选定的单元格”选项，确定完成工作表保护设置。
这样在工作表中除了A16:K16单元格区域外，其它单元格将无法选中，也不能调整行高列宽，这样就不用担心会因误操作影响支票套印效果了。
最后把此工作薄命保存为“支票套印.xls”备用。
OK，到此支票套印的模板已经完成了，以后需要打印支票时，只需打开“支票套印.xls”，在A16:K16输入支票的内容，基本上只要输入金额和日期其它都可从下拉列表中选择输入，然后放入支票打印即可。
如何在execl中设置单据打印模板
如何在execl中设置单据打印模板最近打算用execl打印支票进帐单等单据，在网上下载的都不太符合要求，因此打算自己做个简单的，貌似论坛中没有详细地介绍，因此班门弄斧，分享下经验：1.扫描表格把原表格放入扫描仪，扫描分辨率设定为100dpi、缩放比设为100、模式为黑白文本。
在预览图形上调整扫描区域框使它尽量靠近表格边框，你也可以在扫描后再用图形处理软件进行修剪，去除表格周围的空白，再将扫描的图像处理后保存好。
如果在表格外也要填写的话，那么在扫描前最好先用铅笔在原表格上画一个边框，作为扫描后修剪和量取页边距的依据。
2.设置背景启动Excel 2003，单击菜单栏的“格式/工作表/背景…”，打开工作表背景对话框，找到刚才保存的表格图像，设定为背景。
单击工具栏上显示比例的下拉列表框，在框中直接输入105后回车，把显示比例设定为105%。
注意：这里105%的比例是这样得来的。
在纸上画一个边长10厘米的正方形，扫描后设为电子表格背景，此时比例为100%，用绘图工具栏中的“矩形”工具画一个与背景正方形完全重合的矩形，打印出来。
量得打印出正方形边长为10.5厘米，除以原正方形的边长10厘米，可得比例为105%。
另外，你也可以在Excel中画一个边长为10厘米的正方形，再试着慢慢调整比例，使它与背景正方形重合，亦不难得到相应的比例。
在工作表中使用背景图片为了让背景与工作表内容更和谐，有时需要关闭工作表的网格线显示，因为网格线会显示在背景图片上方，破坏美感。
关闭工作表网络线显示的方法是：单击菜单“工具”→“选项”，在“选项”对话框的“视图”选项卡中，清除“网格线”复选框，单击“确定”按钮。
不显示网格线时的工作表背景在默认情况下，背景图片会平铺在整个工作表中，而且无法被打印出来。
下面介绍的技巧能够巧妙地突破这些限制，帮助用户更灵活地发挥背景图片的威力。
在特定单元格区域中显示背景如果不希望背景图片在整个工作表中平铺显示，或者只希望在特定的单元格区域中显示，可以在插入工作表背景以后如下操作。
制作从Excel文件导入数据的Bartender打印模板
新建从Excel文件导入数据的Bartender打印模板SOP1.创建Excel数据源文件(1)新建一个excel文件，将每个需要引用的字段设为一列，第一行为字段名，第二行起为各字段数据。
格式如下图所示。
(2)将刚才所建的excel文件保存为.xls格式，Bartender无法读取.xlsx格式。
(3)如果有现成的excel数据文件，请确保其为.xls格式。
2.创建空白Bartender标签(1)打开Bartender软件，新建空白模板，下一步(2)选择打印机，选择用于打印标签的打印机，下一步(3)选择卷，默认选择“指定自定义设置”，下一步(4)每页项目数，按照实际需求选择每页项目数，一般一页只有一个项目，默认选择“每页一个项目”，下一步(5)侧边，此处根据你所用的标签纸边缘实际空白尺寸填写，下一步(6)打印的项目形状，根据你使用的标签纸实际形状进行选择，下一步(7)模板大小，此处尺寸为标签的实际尺寸，按实际填写，下一步(8)模板背景，可以设置模板背景颜色或者图片，一般标签为白色，无需更改，下一步(9)出现最后模板信息摘要，点击完成3.设计标签模板样式(1)2-（9）完成后，出现下列模板设计界面(2)通过工具栏中的“对象工具栏”，在空白位置中添加所需的对象，如文本，图片，条码等。
(3)添加图片或者文本对象后，拖动边框会有黄色线条辅助对齐。
的位置。
时点击右侧类型项最靠右的图标，打开“更改数据源类型向导”，如下图所示。
(6)在更改数据源类型向导界面，类型项下拉选择“数据库字段”，下一步，如下图所示(7)然后出现下列界面，选择数据库字段。
因为还没有进行数据库连接设置，此时字段名的下拉框没有数据字段可供选择，所以先点击数据库连接设置，匹配excel数据源。
(8)出现添加数据库向导，点击下一步，见下图(9)在新界面中，选择“Microsoft Excel”，下一步，见下图(10)在新界面中，点击“浏览”选中“一-1”中新建的excel数据源文件，下一步，见下图(11)在新界面中，左侧可用表就是你建的excel文件中的各个sheet表，根据需要将表添加到右侧要使用的表列表中，然后点击完成。
使用EXCEL制作通用打印模块
使用EXCEL制作通用打印模块{eclApp.ActiveSheet.PageSetup.PaperSize := xlPaperA3; //设置纸张的类型eclApp.ActiveSheet.PageSetup.Orientation := xlLandscape; //设置是横向打印还是纵向打印eclApp.ActiveSheet.PageSetup.PrintTitleRows := '$3:$5'; //设置表头重复如果多页的情况下eclApp.ActiveSheet.PageSetup.CenterFooter := '第&P页，共&N 页'; //设置页码问题}unit U_general_print;{$WARNINGS OFF}interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, Buttons, ExtCtrls, ComCtrls, Db, variants, comobj, excelxp;typeTfrmPrint = class(TForm)Panel1: TPanel;SrcLabel: TLabel;DstLabel: TLabel;IncludeBtn: TSpeedButton;IncAllBtn: TSpeedButton;ExcludeBtn: TSpeedButton;ExAllBtn: TSpeedButton;SrcList: TListBox;DstList: TListBox;Panel2: TPanel;btnOK: TSpeedButton;btnCancel: TSpeedButton;Label6: TLabel;procedure IncludeBtnClick(Sender: TObject);procedure ExcludeBtnClick(Sender: TObject);procedure IncAllBtnClick(Sender: TObject);procedure ExcAllBtnClick(Sender: TObject);procedure FormActivate(Sender: TObject);procedure ExAllBtnClick(Sender: TObject);procedure DstListDblClick(Sender: TObject);procedure SrcListDblClick(Sender: TObject);procedure btnCancelClick(Sender: TObject);procedure btnOKClick(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);privateFDataSet: TDataSet;FHeader1: string; //单据头FHeader2: string;FHeader3: string;FFooter1: string; //单据尾FFooter2: string;FFooter3: string;varexcel: variant; //变体变量，指向创建的EXCEL对象range: variant; //变体变量，作为EXCEL一块区域的对象procedure ExportDataToExcel; //打印数据function GetFieldName(const s:string):string;public{ Public declarations }procedure MoveSelected(List: TCustomListBox; Items: TStrings);procedure SetItem(List: TListBox; Index: Integer);function GetFirstSelection(List: TCustomListBox): Integer;procedure SetButtons;end;varfrmPrint: TfrmPrint;procedure Execute(DataSet: TDataSet; DefFeildList:TStringList;const Header1, Header2, Header3, Footer1, Footer2, Footer3: string);implementation{$R *.DFM}varmyStr: string;procedure Execute(DataSet: TDataSet; DefFeildList:TStringList;const Header1, Header2, Header3, Footer1, Footer2, Footer3: string);vari: Integer;beginfrmPrint := TfrmPrint.Create(nil);frmPrint.FDataSet := DataSet;if DefFeildList<>nil then frmPrint.DstList.Items.Assign(DefFeildList);frmPrint.FHeader1 := Header1;frmPrint.FHeader2 := Header2;frmPrint.FHeader3 := Header3;frmPrint.FFooter1 := Footer1;frmPrint.FFooter2 := Footer2;frmPrint.FFooter3 := Footer3;frmPrint.SrcList.Items.Clear;for i := 0 to DataSet.FieldCount - 1 do begin frmPrint.SrcList.Items.Add(DataSet.Fields[i].DisplayLabel); end;frmPrint.ShowModal;end;//操作两个列表框之间的数据移动procedure TfrmPrint.IncludeBtnClick(Sender: TObject); varIndex: Integer;beginIndex := GetFirstSelection(SrcList);MoveSelected(SrcList, DstList.Items);SetItem(SrcList, Index);end;procedure TfrmPrint.ExcludeBtnClick(Sender: TObject); varIndex: Integer;beginIndex := GetFirstSelection(DstList);MoveSelected(DstList, SrcList.Items);SetItem(DstList, Index);end;procedure TfrmPrint.IncAllBtnClick(Sender: TObject);varI: Integer;for I := 0 to SrcList.Items.Count - 1 doDstList.Items.AddObject(SrcList.Items[I],SrcList.Items.Objects[I]);SrcList.Items.Clear;SetItem(SrcList, 0);end;procedure TfrmPrint.ExcAllBtnClick(Sender: TObject);varI: Integer;beginfor I := 0 to DstList.Items.Count - 1 doSrcList.Items.AddObject(DstList.Items[I],DstList.Items.Objects[I]);DstList.Items.Clear;SetItem(DstList, 0);end;procedure TfrmPrint.ExAllBtnClick(Sender: TObject);varI: Integer;beginfor I := 0 to DstList.Items.Count - 1 doSrcList.Items.AddObject(DstList.Items[I],DstList.Items.Objects[I]);DstList.Items.Clear;SetItem(DstList, 0);end;procedure TfrmPrint.DstListDblClick(Sender: TObject);beginexcludebtn.click;procedure TfrmPrint.SrcListDblClick(Sender: TObject);beginincludebtn.click;end;procedure TfrmPrint.MoveSelected(List: TCustomListBox; Items: TStrings);varI: Integer;beginfor I := List.Items.Count - 1 downto 0 doif List.Selected[I] thenbeginItems.AddObject(List.Items[I], List.Items.Objects[I]);List.Items.Delete(I);end;end;procedure TfrmPrint.SetButtons;varSrcEmpty, DstEmpty: Boolean;beginSrcEmpty := SrcList.Items.Count = 0;DstEmpty := DstList.Items.Count = 0;IncludeBtn.Enabled := not SrcEmpty;IncAllBtn.Enabled := not SrcEmpty;ExcludeBtn.Enabled := not DstEmpty;ExAllBtn.Enabled := not DstEmpty;end;function TfrmPrint.GetFieldName(const s: string): string;vari: Integer;beginfor i := 0 to FDataSet.FieldCount -1 do beginif FDataSet.Fields[i].DisplayLabel = s then beginResult := FDataSet.Fields[i].FieldName;Break;end;end;end;function TfrmPrint.GetFirstSelection(List: TCustomListBox): Integer;beginfor Result := 0 to List.Items.Count - 1 doif List.Selected[Result] then Exit;Result := LB_ERR;end;procedure TfrmPrint.SetItem(List: TListBox; Index: Integer);varMaxIndex: Integer;beginwith List dobeginSetFocus;MaxIndex := List.Items.Count - 1;if Index = LB_ERR then Index := 0else if Index > MaxIndex then Index := MaxIndex;Selected[Index] := True;end;SetButtons;end;//===============================//当窗体激活的时候procedure TfrmPrint.FormActivate(Sender: TObject);beginif srclist.Items.count > 0 thenbeginincludebtn.Enabled := true;IncAllBtn.Enabled := true;end;if dstlist.Items.count > 0 thenbeginExcludeBtn.Enabled := True;ExAllBtn.Enabled := true;end;end;procedure TfrmPrint.FormClose(Sender: TObject; var Action: TCloseAction);beginAction := caFree;frmPrint := nil;end;//将数据导入到EXCEL中procedure TfrmPrint.ExportDataT oExcel;vari, j, k: integer;xxx1: string;xr: string;beginif frmPrint.dstlist.items.count = 0 thenbeginapplication.messagebox('没有选择目标字段!', '提示信息', mb_iconwarning + mb_defbutton1);exit;end;Label6.Caption := '正在载入Excel,请稍候......';Label6.Refresh;tryscreen.cursor := crHourGlass;try//创建EXCEL对象varexcel := createoleobject('excel.application');if not varisempty(varexcel) thenbegin//添加工作簿varexcel.workbooks.add;varexcel.workbooks[1].worksheets[1].name := '数据库信息';end;exceptapplication.messagebox('请确认是否安装Excel?', '提示信息：', mb_iconquestion + mb_defbutton1);exit;end;begin//写入列标题range := varexcel.workbooks[1].worksheets[1].columns;for i := 0 to frmPrint.dstlist.Items.count - 1 do beginvarexcel.workbooks[1].worksheets[1].cells[4, i + 1].value := frmPrint.dstlist.items.strings[i];varexcel.workbooks[1].worksheets[1].cells[4, i + 1].Font.bold := true;range.columns[i + 1].columnwidth := 10;end;trytry//循环写入数据到EXCEL中frmPrint.FDataSet.first;j := 5;while not frmPrint.FDataSet.eof do beginfor i := 0 to frmPrint.dstlist.Items.count - 1 do beginxr := '''' + frmPrint.FDataSet.fieldbyname(GetFieldName(frmPrint.dstlist.ite ms.strings[i])).AsString;varexcel.workbooks[1].worksheets[1].cells[j, i + 1].value := xr;end;frmPrint.FDataSet.next;j := j + 1;end;//写入单据尾varexcel.workbooks[1].worksheets[1].cells[j, 1].value := Self.FFooter1;varexcel.workbooks[1].worksheets[1].cells[j + 1, 1].value := Self.FFooter2;varexcel.workbooks[1].worksheets[1].cells[j + 2, 1].value := Self.FFooter3;exceptend;finallyfrmPrint.FDataSet.enablecontrols;bel6.Caption := '';//数据表格画线k := i - 1 + ord('A');xxx1 := chr(k);myStr := xxx1;xxx1 := 'A4:' + xxx1 + inttostr(j - 1);range := varexcel.workbooks[1].worksheets[1].range[xxx1]; range.borders.linestyle := xlcontinuous;//单据尾区域合并xxx1 := 'a' + inttostr(j) + ':' + myStr + inttostr(j);range := varexcel.workbooks[1].worksheets[1].range[xxx1]; range.MergeCells := True;xxx1 := 'a' + inttostr(j + 1) + ':' + myStr + inttostr(j + 1); range := varexcel.workbooks[1].worksheets[1].range[xxx1]; range.MergeCells := True;xxx1 := 'a' + inttostr(j + 2) + ':' + myStr + inttostr(j + 2); range := varexcel.workbooks[1].worksheets[1].range[xxx1]; range.MergeCells := True;//单据头区域合并标题列居中xxx1 := 'a1:' + myStr + '1';range := varexcel.workbooks[1].worksheets[1].range[xxx1]; range.HorizontalAlignment := xlCenter;range.VerticalAlignment := xlCenter;range.MergeCells := True;xxx1 := 'a2:' + mystr + '2';range := varexcel.workbooks[1].worksheets[1].range[xxx1]; range.MergeCells := True;xxx1 := 'a3:' + mystr + '3';range := varexcel.workbooks[1].worksheets[1].range[xxx1]; range.MergeCells := True;//写入单据头varexcel.workbooks[1].worksheets[1].range['a1:a1'] :=Self.FHeader1;varexcel.workbooks[1].worksheets[1].range['a2:a2'] := Self.FHeader2;varexcel.workbooks[1].worksheets[1].range['a3:a3'] := Self.FHeader3;//对报表标题进行修饰varexcel.workbooks[1].worksheets[1].range['a1:a1'].font.nam e := '楷体';varexcel.workbooks[1].worksheets[1].range['a1:a1'].font.size := '18';varexcel.workbooks[1].worksheets[1].range['a1:a1'].font.font style := 'bold';varexcel.ActiveSheet.PageSetup.CenterFooter := '第&P页，共&N页';varexcel.visible := true;end;end;finallyscreen.cursor := crArrow;end;end;procedure TfrmPrint.btnCancelClick(Sender: TObject);beginclose;end;procedure TfrmPrint.btnOKClick(Sender: TObject);begin//导入数据到EXCELExportDataToExcel;end;end.object frmPrint: TfrmPrintLeft = 287Top = 111BorderIcons = [biSystemMenu]BorderStyle = bsDialogCaption = #25171#21360#36873#25321#31383#21475 ClientHeight = 348ClientWidth = 363Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11 = 'MS Sans Serif'Font.Style = []OldCreateOrder = FalsePosition = poScreenCenterOnActivate = FormActivateOnClose = FormClosePixelsPerInch = 96TextHeight = 13object Panel1: TPanelLeft = 0Top = 0Width = 363Height = 317Align = alClientBevelInner = bvLoweredTabOrder = 0object SrcLabel: TLabelLeft = 12Top = 10Width = 48Height = 12Caption = #21407#26377#23383#27573 Font.Charset = GB2312_CHARSET Font.Color = clBlackFont.Height = -12 = #23435#20307Font.Style = []ParentFont = Falseendobject DstLabel: TLabelLeft = 206Top = 10Width = 48Height = 12Caption = #30446#26631#23383#27573 Font.Charset = GB2312_CHARSET Font.Color = clBlackFont.Height = -12 = #23435#20307Font.Style = []ParentFont = Falseendobject IncludeBtn: TSpeedButtonLeft = 171Top = 38Width = 24Height = 22Caption = '>'Enabled = FalseFlat = TrueFont.Charset = GB2312_CHARSET Font.Color = clBlackFont.Height = -12 = #23435#20307 Font.Style = []ParentFont = FalseOnClick = IncludeBtnClickendobject IncAllBtn: TSpeedButton Left = 171Top = 88Width = 24Height = 22Caption = '>>'Enabled = FalseFlat = TrueFont.Charset = GB2312_CHARSET Font.Color = clBlackFont.Height = -12 = #23435#20307 Font.Style = []ParentFont = FalseOnClick = IncAllBtnClickendobject ExcludeBtn: TSpeedButton Left = 171Top = 136Width = 24Height = 22Caption = '<'Enabled = FalseFlat = TrueFont.Charset = GB2312_CHARSET Font.Color = clBlackFont.Height = -12 = #23435#20307 Font.Style = []ParentFont = FalseOnClick = ExcludeBtnClickendobject ExAllBtn: TSpeedButton Left = 171Top = 186Width = 24Height = 22Caption = '<<'Enabled = FalseFlat = TrueFont.Charset = GB2312_CHARSET Font.Color = clBlackFont.Height = -12 = #23435#20307 Font.Style = []ParentFont = FalseOnClick = ExAllBtnClickendobject SrcList: TListBoxLeft = 11Top = 29Width = 150Height = 276Cursor = crArrowFont.Charset = GB2312_CHARSETFont.Color = clBlackFont.Height = -12 = #23435#20307Font.Style = []ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ItemHeight = 12MultiSelect = TrueParentFont = FalseTabOrder = 0OnDblClick = SrcListDblClickendobject DstList: TListBoxLeft = 206Top = 29Width = 150Height = 276Font.Charset = GB2312_CHARSETFont.Color = clBlackFont.Height = -12 = #23435#20307Font.Style = []ImeName = #20013#25991' ('#31616#20307') -'#25628#29399#25340#38899#36755#20837#27861 ItemHeight = 12MultiSelect = TrueParentFont = FalseTabOrder = 1OnDblClick = DstListDblClickendendobject Panel2: TPanelLeft = 0Top = 317Width = 363Height = 31Align = alBottomBevelInner = bvLoweredTabOrder = 1object btnOK: TSpeedButtonLeft = 208Top = 4Width = 68Height = 22Caption = #30830' '#23450Flat = TrueFont.Charset = GB2312_CHARSETFont.Color = clBlackFont.Height = -12 = #23435#20307Font.Style = []Glyph.Data = {76010000424D760100000000000076000000280000002000000010000000010004000000000000010000120B0000120B0000100000000000 0000000000000000800000800000008080008000000080008000808000007F7F7 F00BFBFBF000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0 0555555555555555555555555555555555555555555555555555555FF55555 55555555905555555555555577FF5555555555599905555555555557777F5555 555555599905555555555557777FF5555555559999905555555555777777F555 5555599999905555555557777777FF5555557990599905555555777757777F55 55579055559905555557775555777FF5555555555599905555555555557777F5 555555555559905555555555555777FF5555555555559905555555555555777F F5555555555557905555555555555777FF555555555555790555555555555577 7FF5555555555555990555555555555577755555555555555555555555555555 555}NumGlyphs = 2ParentFont = FalseOnClick = btnOKClickendobject btnCancel: TSpeedButtonLeft = 286Top = 4Width = 68Height = 22Caption = #21462' '#28040Flat = TrueFont.Charset = GB2312_CHARSETFont.Color = clBlackFont.Height = -12 = #23435#20307Font.Style = []Glyph.Data = {76010000424D760100000000000076000000280000002000 000010000000010004000000000000010000130B0000130B0000100000000000 0000000000000000800000800000008080008000000080008000808000007F7F7 F00BFBFBF000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0 03333333333333333333333FFFFF3333333333999993333333333F77777FFF 33333399999999933333337777FF377FF3333993370739993333377FF373F377 FF3399993000339993337777F777F3377F3393999707333993337F7773733333 7FF993399933333399377F3777FF333377F993339903333399377F33737FF333 77F993333707333399377F333377FF3377F993333101933399377F333777FFF3 77F993333000993399377FF3377737FF7733993330009993933373FF3777377F 7F339993300039999333773FF777F777733339993707339933333773FF7FFF77 3333339999999993333333777333777333333333999993333333333377777333 333}NumGlyphs = 2ParentFont = FalseOnClick = btnCancelClickendobject Label6: TLabelLeft = 11Top = 10Width = 6Height = 12Font.Charset = ANSI_CHARSETFont.Color = clWindowTextFont.Height = -12 = #23435#20307Font.Style = []ParentFont = Falseendendendprocedure TFormRuKu.dxBarButton2Click(Sender: TObject);varh1, h2, h3, f1, f2, f3: string;list: TStringList;zje: Double;begininherited;h1 := gShop + '进(退)货单';h2 := '日期：' + formatdatetime('yyyy-mm-dd', cxDateEdit1.Date) + ' 单号：' + cxtextedit1.Text + ' 供应商：' + cxbuttonedit1.Text;h3 := '单据类型：' + cxcombobox1.Text + ' 备注：' + cxtextedit2.Text;zje := Double(cxGrid1DBTableView1.DataController.Summary.FooterSu mmaryValues[1]);f1 := '合计金额小写：' + floattostr(zje) + '（元）';f2 := '合计金额大写：' + getrmb(zje);f3 := '制表：' + + ' 验收： ' + '主管：';list := TStringList.Create;list.Delimiter := ',';list.DelimitedText := '编码,品名规格,单位,数量,进价,金额';U_general_print.Execute(dm1.qryRuKu, list, h1, h2, h3, f1, f2, f3);list.Free;end;。
在Excel中用宏命令制作打印表单
在Excel中用宏命令制作打印表单在Excel中用宏命令制作打印表单2010-07-09 10：18这是一张通过Office办公软件Excel电子表格宏制作的单据打印表，其特点是：①操作简单只用鼠标就可完成打印全过程；②"商品单价"表可由厂家提供(或预先做好)，对已做过选择的内容可进行标记；③"销售单"表可进行快速添加、清除和修改；④单据可选择性的保存。
本表想不到还很实用，只要在"商品单价"表中双击就可以把数据填入到"销售表"中，如果把它做一些小的改动就可用在其它的单据打印上。
现在把制作步骤写下来，让朋友对它做进一步的改进。
1、第一步：首先新建一个Excel电子表文件，在新建的文件中建立二张名字为"商品单价"和"销售单"的表。
在"商品单价"表中是用来存放厂家提供的商品单价数据，只要将厂家的商品单价输入好即可，厂家的商品未调价就不需做修改(如图1)。
2、第二步：在"销售单"表中按图2输入有关数据，部分单元格公式输入如下。
在C1至C3单元格中分别输入=IF(K15="","",K15)，=IF(L1="","",L1)&IF(K1="","",K1)，IF(K2="","",K2)在B5至B15单元格中分别输入=IF(K5="","",K5)，…，=IF(K15="","",K15)在C5至C15单元格中分别输入=IF(B5="","",VLOOKUP(B5,spdj,2,FALSE))，…=IF(B15="","",VLOOKUP(B15,spdj,2,FALSE))在I5至I15单元格中分别输入=F5*G5，=F6*G6…=F14*G14和=SUM(I5：I14)在单元格G2 G3中分别输入=TODAY()，=IF(K3="","",K3)在单元格C15中输入="合计金额大写)："&TEXT(INT(ABS(I15)),"[dbnum2]g/通用格式")&"元"&TEXT(INT(ABS(I15*10))-INT(ABS(I15))*10,"[dbnum2]g/通用格式")&"角"&TEXT(INT(ABS(I15*100))-INT(ABS(I15)*10)*10,"[dbnum2]g/通用格式")&"分整"在单元格C16 C17 G17中分别输入=IF(K4="","",K4)，=IF(K17="","",K17)，=IF(K16="","",K16)其余的输入就不用我介绍了。