ex写cel中怎么制作针式多联打印机打印格式的报突省向穿八动易超盾导表

解决方案：
确定活动工作表为“订单表”，按Alt+F11组合键打开VBE窗口，选择菜单“念销插入”——“模块”，并输入以下代码：
Sub 打印格式转换()
的在Dim 表头行数 As Byte, 间隔行数 As Byte, 插入行数 As Byte, rang As Range, j As Integer
Dim sht As String
sht = ***.name
ActiveSheet , Copy, Sheet(***.count)
***.find(What:="合计", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Resize(2, 1).***.delete
表头行数 = 6
间隔行数 = 4
插入行数 = 8
终止行数 = ActiveSheet.UsedRange.***.count
***.copyobjectswithcells = False
Cells(1, ***.count).Resize(终止行数, 1) = 1
Set rang = Cells(表头行数 + 1, ***.count)
***.screenupdating = False
Do
***.offset(间隔行数, 0).Rows("1:" & 插入行数).***.insetr Shift:=xlDown
Set rang = ***.end(xlDown).End(xlDown)
rownum = Range("B" & ***.count).End(xlUp).Row
Loop While ***.row < rownum
rownum = Cells(***.count, ***.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
***.select
***.paste
With Sheets(sht).UsedRange
.Rows((.***.count - 1) & ":" & (.***.count)).***.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
***.select
***.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
***.select
***.formular1C1 = "=SUM(R[-4]C:R[-1]C)"
Cells(1, Columns, Count).***.delete
Cells(1, 1).Select
***.screenupdating = True
***.view = xlPageBreakPreview
***.resetallpagebreaks
***.calculation = xlCalcultionAutomatic
For i = 13 To ActiveSheet.UsedRange.***.count Step 12
activewindow.***.add Before:=Cells(i, 1)
Next
***.zoom = 100
End Sub
光标置于代码中任意位置，并按F5键执行，程序会将“订单表”复制一份，且转换成下图所示的样式，不仅每页仅有4行明细数据，且每页都具有单独的合计及相同的顶端标题和底端标题。最能体现便利性之处在于程序已将工作表自动分页，每12行为一页，不再需要调整页面设置，直接调用针式打印机打印程序即可。

这个问题我之前也遇到过，其实用Excel做针式多联打印的关键是调整页面布局和边距。首先要把纸张大小设置成你打印机支持的连续纸尺寸，比如自定义成241mm×140mm这种常见规格。然后在页面布局里把上下左右边距都调小点，确保内容能正确落到每联纸上。记得勾选打印网格线和打印标题行，这样每一联抬头信息都能保留。最后预览一下，避免内容被撕纸线割开，保存模板下次直接套用就行

针对多联打印，我觉得最麻烦的是内容对齐问题。我的做法是先在Excel里按实际纸张比例画个参考框，比如三联单就用三条竖线隔开区域，然后在页面布局中设置横向打印，并选择合适的缩放比例，让内容刚好占满有效打印区。同时要把打印区域设定清楚，避免空白页或内容溢出。另外建议每联加个标识头，比如客户联存根联，字体用黑体加粗更清晰。最后别忘了在打印机属性里设置好纸张类型为连续纸，不然容易卡纸或错位

我之前公司在开发票和送货单的时候就用Excel配针式打印机，经验是一定要先量好每联单据的实际打印区域。打开Excel的页面设置，在工作表选项卡里设置打印区域，把列宽和行高精确到毫米级别。比如第一联要打客户信息，第二联留仓库签字，就得用分页预览功能手动插入分页符，确保各联不串位。还有个小技巧是把表格外框加粗，方便人工识别每联内容，打印前务必多次测试调整