如何逐行复制打印

p_gq · 发表于 2013-4-26 12:59

本帖最后由 p_gq 于 2013-4-26 13:52 编辑

Sub Macro1()
'
' Macro1 Macro
' 宏由 user 录制，时间: 2013-4-26
'

'
Sheets("内销库").Select
Rows("2:2").Select
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("内销库").Select
Rows("3:3").Select
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("内销库").Select
Rows("4:4").Select
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("内销库").Select
Rows("5:5").Select
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("内销库").Select
Rows("6:6").Select
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

这个怎么改成逐行复制到最后一行，因为有很多行

snowtt209 · 发表于 2013-4-26 13:10

太有才了，我一定努力努力的学习。

zjdh · 发表于 2013-4-26 13:28

本帖最后由 zjdh 于 2013-4-26 15:05 编辑

Sub Macro1()
With Sheets("Sheet1")
For I = 2 To Sheets("内销库").Range("A65536").End(3).Row
Sheets("内销库").Rows(I).Copy .Range("A1")
.PrintOut
Next
End With
End Sub

复制代码

p_gq · 发表于 2013-4-26 13:42

zjdh 发表于 2013-4-26 13:28

谢了，原来可以这样啊。

p_gq · 发表于 2013-4-26 15:57

zjdh 发表于 2013-4-26 13:28

再请教一下，大侠是否可以筛选着打印

zjdh · 发表于 2013-4-26 17:39

当然可以啦！
你把附件删了干嘛？？？

p_gq · 发表于 2013-4-26 19:42

zjdh 发表于 2013-4-26 17:39
当然可以啦！
你把附件删了干嘛？？？

我以为不需要这啊

zjdh · 发表于 2013-4-27 09:54

连续打印2.rar (13.98 KB, 下载次数: 48)

p_gq · 发表于 2013-4-27 10:29

zjdh 发表于 2013-4-27 09:54

大侠，你好又要麻烦你了，我的意思是我在那张内销库的里面筛选好了，直接打印可以吗？

zjdh · 发表于 2013-4-27 10:51

p_gq 发表于 2013-4-27 10:29
大侠，你好又要麻烦你了，我的意思是我在那张内销库的里面筛选好了，直接打印可以吗？

在用户窗口直接筛选，再批量打印呀！

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