[已解决]批量设置表格格式

dyzx

请问各位老师怎样将表1中的所有表格变成样表的形式，打印时用A4纸打印，每个班打印一张A4纸，要求用VBA做，请老师多多指教，多谢。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-12-22 10:39

1. Sub Macro1()
   
2. Sheet2.Activate
   
3. With Sheet1
   
4.     For i = 1 To .Range("b65536").End(xlUp).Row - 10 Step 12
   
5.         [b1] = .Cells(i, 5)
   
6.         [b2:g7].Value = .Cells(i + 1, 2).Resize(6, 6).Value
   
7.         [b9:g11].Value = .Cells(i + 8, 2).Resize(3, 6).Value
   
8.         [b1:g11].PrintOut
   
9.     Next
   
10. End With
    
11. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Sheet2.Activate
   
3. With Sheet1
   
4.     For i = 1 To .Range("b65536").End(xlUp).Row - 10 Step 12
   
5.         [b1] = .Cells(i, 5)
   
6.         [b2].Resize(10, 6).Value = .Cells(i + 1, 2).Resize(10, 6).Value
   
7.         [b1:g11].PrintOut
   
8.     Next
   
9. End With
   
10. End Sub

复制代码

dyzx

dsmch 发表于 2014-12-21 21:31

dsmch老师：为什么打印出来的座位表没有“午间休息”几个字，请指教，多谢

dsmch

1. Sub Macro1()
   
2. Sheet2.Activate
   
3. With Sheet1
   
4.     For i = 1 To .Range("b65536").End(xlUp).Row - 10 Step 12
   
5.         [b1] = .Cells(i, 5)
   
6.         [b2:g7].Value = .Cells(i + 1, 2).Resize(6, 6).Value
   
7.         [b9:g11].Value = .Cells(i + 8, 2).Resize(3, 6).Value
   
8.         [b1:g11].PrintOut
   
9.     Next
   
10. End With
    
11. End Sub

复制代码

dyzx

dsmch 发表于 2014-12-22 10:39

老师：问题解决了，非常多谢