针式打印机excel模板（针式打印机打印表格模板软件）

针式打印机在EXCEL中怎样 实现表格套打

套打是在word中进行设置的。

1，事先准备好excel数据。

比如学生的姓名，学号，考号。

2，在word中调好

页面版式。

格式都设置好。

（比如word设置为

准考证的格式。

）

3，在work中选择

套打，数据来源选择excel，在特定的字段中选择

姓名。

学号。

之后套打就可以了。

顺便来提示：

可以打印为pdf。这样以后更好使用。

如何用EXCEL表格制作四联出库单，用针式打印机打印，望您帮忙

如果你的打印纸是四联复写的。直接打印就行啦。

单据格式依照你想要的格式做，如果打印纸已经有各式的，就按打印纸的格式调整

。

如果有出库记录的明细表或者苦菜管理表一体的，可以联动调用数据

针式打印机打印excel格式怎么调整

1、打开待打印的表格

2、选择打印功能，单击选择针式打印机，确定

3、单击打印预览，通过页面边线调整打印效果，OK之后确定即可开始打印

地磅单 我可以用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表格已经做出了出库单格式，那你只要设置你的打印机为默认打印机，然后把要打印的内容选中打印区域，调好纸张的格式和页边距，拿四联的出库单直接用针式打印机打印就好了