针式打印机可以打印两联的清单?模板怎么弄?
爱普生的就好了,很多型号。
只需要用EXCEL做个模版就好了,然后操作打印机打出来,实在不行我帮你写个软件。
爱普生LQ-630k针式打印机怎么设置打印模板?
您好,对于打印内容的模板,是需要您自己去做的,或者您可以去网上找,因为打印不同的内容所需要的模板也是不同的。对于纸张规格的设置,我可以把操作方法给您。
以下是自定义纸张方法:
如果您使用的电脑是windows
xp系统:
电脑左下角点击“开始”-“打印机和传真机”-
“文件”-“服务器属性”,勾选“创建新格式”,在“表格名”中输入自定义尺寸的名称(如:1234),根据纸张的实际尺寸分别输入“宽度”和“高度”(高度=连续纸孔数*0.5*2.54cm)。“打印机区域边距”无需修改,点击“保存格式”完成纸张自定义。
如果您使用的电脑是windows
7系统:
电脑左下角点击“开始”-“设备和打印机”,鼠标左键点击所使用的打印机图标,在上方菜单栏选择“服务器属性”,勾选“创建新表单”,在“表单名”中为输入自定义尺寸的名称(如:1234),根据纸张的实际尺寸分别输入“宽度”和“高度”(高度=连续孔数*0.5*2.54cm)。“打印机区域边距”无需修改,点击“保存格式”完成纸张自定义。
驱动设置:
鼠标右键点击所使用的打印机图标选择“打印首选项”-“布局”-“高级”,在“纸张规格”中选择自定义尺寸的名称“1234”
应用软件设置:
请在您所使用的应用软件中,按照以上自定义的尺寸进行“页面设置”,也就是说需要把您自定义的纸张规格在您的软件里面也需要选择出来。
针式打印机,怎样做打印支票模版
在电脑上设置打印机打印支票模版的步骤:
1、点击“开始”-“控制面板”-选择“设备和打印机”;
2、单击打印支票的打印机图标,选择窗口上方“打印服务器属性”;
3、在“打印服务器属性”-“格式”窗口下选择“创建新格式”(点击方框内就会勾选),在“格式名”里面输入“支票”(也可以直接填尺寸);
4、在“格式”窗口下方“纸张大小”下填入支票的“宽度”和“高度”,填好后点击“确定”;
5、“开始”-“控制面板”-“打印机和传真”(重复第二步操作一样),选中打印支票的打印机,右键点击“打印机属性”;
6、“打印机属性”-“设备设置”窗口-“滚动进纸器”下拉框中选择前面输入的格式名(支票/尺寸)后点击“确定”,打印纸张规格(支票打印模版)就设置好了。
这样就可以打印支票了。
excel中如何制作针式多联打印机打印格式的报表
解决方案:
确定活动工作表为“订单表”,按Alt+F11组合键打开VBE窗口,选择菜单“插入”——“模块”,并输入以下代码:
Sub 打印格式转换()
Dim 表头行数 As Byte, 间隔行数 As Byte, 插入行数 As Byte, rang As Range, j As Integer
Dim sht As String
sht = ActiveSheet.Name
ActiveSheet , Copy, Sheet(Sheet.Count)
Cells.Find(What:="合计", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Resize(2, 1).EntierOrw.Delete
表头行数 = 6
间隔行数 = 4
插入行数 = 8
终止行数 = ActiveSheet.UsedRange.Rows.Count
Application.CopyObjectsWithCells = False
Cells(1, Columns.Count).Resize(终止行数, 1) = 1
Set rang = Cells(表头行数 + 1, Columns.Count)
Application.ScreenUpdating = False
Do
rang.Offset(间隔行数, 0).Rows("1:" 插入行数).EntireRow.Insetr Shift:=xlDown
Set rang = rang.End(xlDown).End(xlDown)
rownum = Range("B" Rows.Count).End(xlUp).Row
Loop While rang.Row rownum
rownum = Cells(Rows.Count, Columns.Count).End(xlUp).Row
Rows("1:" 表头行数).Copy
Set rang = Rows((表头行数 + 间隔行数 + 3) ":" 表头行数 * 2 + 间隔行数 + 2)
For i = 2 * (表头行数 + 间隔行数 + 1) To rownum Step 间隔行数 + 插入行数
Set rang = Union(Range, Rows(i + 3 ":" i + 表头行数 + 2))
Next
rang.Select
ActiveSheet.Paste
With Sheets(sht).UsedRange
.Rows((.Rows.Count - 1) ":" (.Rows.Count)).EntirRow.Copy
End With
Set rang = Rows((表头行数 + 间隔行数 + 1) ":" 表头行数 + 间隔行数 + 2)
For i = 2 * (表头行数 + 间隔行数 + 1) To rownum + 间行行数 Step 间隔行数 + 插入行数
Set rang = Union(rang, Rows(i + 1 ":" i + 2))
Next
rang.Select
ActiveSheet.Paste
On Error GoTo 0
Set rang = Cell((表头行数 + 间隔行数 + 1), "H")
For i = 2 * (表头行数 + 间隔行数 + 1) To rownum + 4 Step 间隔行数 + 插入行数
Set rang = Union(rang, Cells(i + 1, "H"))
Next
rang.Select
Selection.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
Cells(1, Columns, Count).EntireColumn.Delete
Cells(1, 1).Select
Application.ScreenUpdating = True
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.ResetAllPageBreaks
Application.Calculation = xlCalcultionAutomatic
For i = 13 To ActiveSheet.UsedRange.Rows.Count Step 12
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, 1)
Next
ActiveWindow.Zoom = 100
End Sub
光标置于代码中任意位置,并按F5键执行,程序会将“订单表”复制一份,且转换成下图所示的样式,不仅每页仅有4行明细数据,且每页都具有单独的合计及相同的顶端标题和底端标题。最能体现便利性之处在于程序已将工作表自动分页,每12行为一页,不再需要调整页面设置,直接调用针式打印机打印程序即可。
版权声明
本文内容均来源于互联网,版权归原作者所有。
如侵犯到您的权益,请及时通知我们,我们会及时处理。