针式打印机快递单excel模板(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表格制作四联出库单,用针式打印机打印
打印设置前建议设置下页面,然后在控制面板里面设置打印机的纸张大小,一定要更要跟页面里面的纸张相匹配:
我想要用针式打印机打印中通快递单,不想手写面单,电脑里要下什么软件?
如果只是中通的,中通会提供快递单打印软件,如果是淘宝的单子,可以用淘宝助理打印,如果是其他的可以下载免费的四五打印助手,都很好用的
谁有打印天天快递和顺丰快递面单的打印模板。我是在针式打印机上面打印。不要软件,WORD或是EXCEL表格。
不需要什么软件,只要你的电脑里有平常用的office就行了。
自己用EXCEL表格做一个“快递打印软件”,该工作薄两个工作表,第一个工作表为固定格式的打印版本,第二个工作表为需要读取的姓名、地址、电话等内容。
1、要实现的功能是第一个工作表不停地从第二个工作表中读取每个人的信息,放到指定的位置。
2、每读取一条信息后就将第一个工作表并打印出来。这样每条信息就会被打印一份!
3、可以选定哪些行就打印哪些行的数据,这样就可以实现自动、批量打印了。
这是我自己做的
如何用EXCEL表格制作四联出库单,用针式打印机打印,望您帮忙
如果你的打印纸是四联复写的。直接打印就行啦。
单据格式依照你想要的格式做,如果打印纸已经有各式的,就按打印纸的格式调整
。
如果有出库记录的明细表或者苦菜管理表一体的,可以联动调用数据
版权声明
本文内容均来源于互联网,版权归原作者所有。
如侵犯到您的权益,请及时通知我们,我们会及时处理。