将打印区域通过vba自动生成一张新表

xuflower

           求一代码，将已经设置好的打印区域，重新生成一张新表，并保持打印区域内的字体格式不变，打开新表就可以直接打印，点击代码后新表为打开可预览状态。。。。。

hwc2ycy

1. Sub test()
   
2.     Dim strPrint$, rgPrint As Range
   
3.     With ActiveSheet.PageSetup
   
4.     strPrint = .PrintArea
   
5.     End With
   
6.     If Len(strPrint) = 0 Or strPrint = "False" Then MsgBox "当前无打印设置区域": Exit Sub
   
7.     Set rgPrint = Range(strPrint)
   
8.     Worksheets.Add
   
9.     rgPrint.Copy Range("a1")
   
10.     ActiveSheet.PrintPreview
    
11. End Sub

复制代码

hwc2ycy

其实利用名称 Print_Area 来判断更好。

hwc2ycy

1. Sub test2()
   
2.     Dim rgPrint As Range
   
3.     On Error Resume Next
   
4.     Set rgPrint = Range("Print_Area")
   
5.     If rgPrint Is Nothing Then MsgBox "当前工作表无打印设置区域": Exit Sub
   
6.     Worksheets.Add
   
7.     rgPrint.Copy Range("a1")
   
8.     ActiveSheet.PrintPreview
   
9. End Sub

复制代码

hwc2ycy

不过行高列宽的格式就没有过来了。

xuflower

hwc2ycy 发表于 2013-5-30 22:34
不过行高列宽的格式就没有过来了。

不可以设置成和之前一样的行高列宽吗？？？

hwc2ycy

你用技巧试下就知道了。
不过再刷几次格式就好了，

xuflower

hwc2ycy 发表于 2013-5-30 22:54
你用技巧试下就知道了。
不过再刷几次格式就好了，

明天我试试，今天晕死了，你的代码都还没研究，不过先谢了

xuflower

hwc2ycy 发表于 2013-5-30 22:54
你用技巧试下就知道了。
不过再刷几次格式就好了，

今早测试了代码，发现除了格式不能统一以外，就连设置过的打印设置里的选项也不过一同在新表中体现，能否重新编写一下代码啊，麻烦咯