王剑编程网

我们时常会做这样的事，我们大量去印刷厂印一批合格证回来，每张合格证要对应每个产品，每个产品的编号等型号又是独一的，这个时候我们就要用到套版打印了。

每天那么多产品下线如果是一个个输入型号在打印就真的是太费时间了，当我们有了模板之后就可以批量把每天的产品型号导入进去打印，只要识字就可以操作模板。

假如我们要修改名片上的名字和电话只需要把员工的信息导出来就可以打印到相应的模板上

下面是部分代码分享

Sub 插入合格证()

Dim sr As Shape, r%, lx%, ty%, tu$, wu As Shape, tu2$

Dim wu2 As Shape, wu3 As Shape, scu As Shape

'----------------------插入正面图片

For Each sr In Sheet4.Shapes

sr.Delete

Next

tu1 = ThisWorkbook.Path & "\正面.png"

Sheet4.Shapes.AddPicture tu1, 1, 1, 0, 0, 805.7, 584.6

'－－－－－－－－－－－－－

'插入反面图片

For Each sr In Sheet6.Shapes

sr.Delete

Next

tu2 = ThisWorkbook.Path & "\反面.png"

Sheet6.Shapes.AddPicture tu2, 1, 1, 0, 0, 805.7, 584.6

'－－－－－－－－－－－－－

'插入边框图片

For Each sr In Sheet7.Shapes

sr.Delete

Next

tu3 = ThisWorkbook.Path & "\边框.png"

Sheet7.Shapes.AddPicture tu3, 1, 1, 0, 0, 805.7, 584.6

'－－－－－－－－－－－－－

MsgBox "已完成"

End Sub

Sub 计算份数()

Sheet8.Range("h1") = Sheet8.Range("a1").End(xlDown).Row - 1

Sheet8.Range("j1") = 0

End Sub

Sub 正面打印()

Dim srd

srd = Sheet8.Cells(Sheet8.Range("j1").Value + 1, 1)

Set wu = Sheet4.Shapes.AddLabel(1, 172, 369.3, 150, 10)

wu.TextFrame2.TextRange.Characters.Text = "☆ " & srd & " ☆"

wu.TextFrame2.TextRange.Characters.Font.Size = 8

wu.TextFrame2.TextRange.Characters.Font.Name = "Arial"

Sheet4.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

wu.Delete

End Sub