[已解决]打印模板：VBA控制，修改……新加两个功能未解决

ljy688 · 发表于 2012-9-15 18:18

本帖最后由 ljy688 于 2012-9-15 18:29 编辑

原代码是提供了自动的把【到达站】和【货号】填入

现在想增加三个功能
第一个……
第二个……
第三个复位

详见压缩包

请高手帮助了，
谢谢

打印模板0915.rar (91.29 KB, 下载次数: 23)

zjdh · 发表于 2012-9-15 20:51

最多打印几大张？

ljy688 · 发表于 2012-9-15 20:56

zjdh 发表于 2012-9-15 20:51
最多打印几大张？

大张啊！一般来说每件货物要贴一张，每天收的货大概在2000件左右
现在订制的不干胶是15个标签为一页的，

因为打印机只支持A4的纸大小

ljy688 · 发表于 2012-9-15 21:00

zjdh 发表于 2012-9-15 20:51
最多打印几大张？

兄弟，我表内的代码已不合用了，哪代码是15个标签的整页整页的填到达站和货号的，和我新提出的功能已不适合了

如果兄弟能出手的，
诚谢了

zjdh · 发表于 2012-9-15 21:20

页边距根据你的要求自己设置（不可设置为居中，否则会出问题），宏是设置的浏览，若要改为打印自己将浏览屏蔽将打印打开。

打印模板.rar (98.56 KB, 下载次数: 72)

zjdh · 发表于 2012-9-15 21:40

这段宏可以简化
Sub 打印(S As Integer, T As Integer)
With Columns("B:P")
      .Borders.LineStyle = xlNone
      .ClearContents
End With
Range("T2:V4").Copy
W = 2
L = S * 3 - 2
For I = S To T
      K = K + 1
      If I = 6 Then W = 6: L = -1: K = 1
      If I = 11 Then W = 10: L = -1: K = 1
      Cells(W, L + K * 3).PasteSpecial Paste:=xlPasteAll
Next
ActiveSheet.PrintPreview '浏览
'ActiveSheet.PrintOut    '打印
End Sub

独股求胜 · 发表于 2012-9-16 06:57

真是个高好东西，学习了。

ljy688 · 发表于 2012-9-16 17:47

zjdh 发表于 2012-9-15 21:40
这段宏可以简化
Sub 打印(S As Integer, T As Integer)
With Columns("B:P")

哈哈，没这么的，今天在忙着了
代码全中，非常好用了
谢兄弟了

ljy688 · 发表于 2012-9-16 17:48

zjdh 发表于 2012-9-15 21:40
这段宏可以简化
Sub 打印(S As Integer, T As Integer)
With Columns("B:P")

这个最好了，赞！

ljy688 · 发表于 2012-9-17 14:06

zjdh 发表于 2012-9-15 21:40
这段宏可以简化
Sub 打印(S As Integer, T As Integer)
With Columns("B:P")

兄弟
我想扩充到20个标签，弄了好些时间了没扩成
想问一下这个
For I = S To T
      K = K + 1
      If I = 6 Then W = 6: L = -1: K = 1
      If I = 11 Then W = 10: L = -1: K = 1
      Cells(W, L + K * 3).PasteSpecial Paste:=xlPasteAll
该怎改？
Print_Area的名称定义区域我改成了=打印标签!$A$1:$P$17了
弹窗上的位置按钮了扩到20了，
Private Sub CommandButton1_Click()
里面的位置值我也扩到了20
还是弄不了

请兄弟帮忙修改了
谢谢

		自动登录	找回密码
密码			注册

[已解决]打印模板：VBA控制，修改……新加两个功能未解决

评分