针式打印机excel模板(针式打印机 模板)
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行为一页,不再需要调整页面设置,直接调用针式打印机打印程序即可。
如何用EXCEL表格制作四联出库单,用针式打印机打印
如果excel表格已经做出了出库单格式,那你只要设置你的打印机为默认打印机,然后把要打印的内容选中打印区域,调好纸张的格式和页边距,拿四联的出库单直接用针式打印机打印就好了
富士通DPK800 针式打印机,打印 Excel 2003模板的时候不打完,后面还有几行不打,自动退纸,再放纸又继续打印
我是否可以理解成打印不完全,首先考虑页边距问题,excel的页边距是有那么点恶心!!不过,你还是先打印预览一下,一般预览出来的是可以完全打印出来的,但偶尔有那么一点差距的,造成的原因可能是你放的纸张位置没对齐什么的,总结,解决办法,通过打印预览,加大页边距。上下左右都加大。这种现象一般不是打印机的问题
地磅单 我可以用excel的格式做模板 用针式打印机打印出来吗? 高手请教
可以,先做好一个模式用模板保存,然后打开这个模板,输入数据,保存这个地磅单,打开打印后就可以进行下一个地磅单了。
针式打印机打印excel格式怎么调整
1、打开待打印的表格
2、选择打印功能,单击选择针式打印机,确定
3、单击打印预览,通过页面边线调整打印效果,OK之后确定即可开始打印
版权声明
本文内容均来源于互联网,版权归原作者所有。
如侵犯到您的权益,请及时通知我们,我们会及时处理。