[已解决]按单号分开全部打印

yewei113

疑问在附件中

最佳答案

月排行榜 / 总排行榜

zjdh

2014-5-27 08:57

Sub test()
    R = Sheets(1).Range("A65536").End(3).Row
    With Sheets(1).Range("A2:I" & R)
        Set W = .Find("出库单",  LookAt:=xlWhole)
        firstAddress = W.Address
        F = 1
        Do
            F2 = W.Row - 1
            Range(Cells(F, 1), Cells(F2, 9)).PrintOut
            Set W = .FindNext(W)
            F = F2 + 1
        Loop While Not W Is Nothing And W.Address <> firstAddress
        Range(Cells(F, 1), Cells(R, 9)).PrintOut
    End With
End Sub

跳转到最佳答案楼层

zjdh

你的这种设计太.....
一张单据一页就方便多了。
最好是一个模板，一个数据库，自由选择，自动填入模板连续打印。
参见我的帖子中的打印功能
http://www.excelpx.com/thread-201041-1-1.html

ppp710715

1. Public Sub ppp()
   
2.     Dim ws As Worksheet
   
3.     Set ws = ActiveSheet
   
4.     With ws.PageSetup
   
5.         .PaperSize = xlPaperA4    'A4打印纸
   
6.         .CenterHorizontally = True    '页面水平居中
   
7.         .CenterVertically = True      '页面垂直居中
   
8.         .Orientation = xlPortrait   '纵向打印
   
9. '        .Orientation = xlLandscape    '横向打印
   
10.     End With
    
11.     ws.PageSetup.PrintArea = "A1:i18"
    
12.     ws.PrintOut
    
13.     ws.PageSetup.PrintArea = "a19:i30"
    
14.     ws.PrintOut
    
15.     ws.PageSetup.PrintArea = "A31:i37"
    
16.     ws.PrintOut
    
17.     ws.PageSetup.PrintArea = "a38:i60"
    
18.     ws.PrintOut
    
19.     Set ws = Nothing
    
20. End Sub

复制代码

xpw6061

没有设置好分页符,在分页预览模式下可以看到问题,每一张出库单下插入分页符就成了

zjdh

Sub test()
    R = Sheets(1).Range("A65536").End(3).Row
    With Sheets(1).Range("A2:I" & R)
        Set W = .Find("出库单",  LookAt:=xlWhole)
        firstAddress = W.Address
        F = 1
        Do
            F2 = W.Row - 1
            Range(Cells(F, 1), Cells(F2, 9)).PrintOut
            Set W = .FindNext(W)
            F = F2 + 1
        Loop While Not W Is Nothing And W.Address <> firstAddress
        Range(Cells(F, 1), Cells(R, 9)).PrintOut
    End With
End Sub

yewei113

zjdh 发表于 2014-5-27 08:20
你的这种设计太.....
一张单据一页就方便多了。
最好是一个模板，一个数据库，自由选择，自动填入模板连续 ...

我这是根据别的东西该出来的，补资料用的，不是平时自己出库用的

yewei113

ppp710715 发表于 2014-5-27 08:40

谢谢了