Nhờ viết code in nhiều sheets (1 người xem)

[vova2209]

Em có 3 sheets: BBan; 1.KL V; 2.Cao Do
các sheets đều links (vlookup) chạy theo số đã định sẵn
mã ở 3 sheets là:
+ 200 và in lần lượt: sheets (BBan) >> 1.KL V >> 2.Cao Do
+ 201 và in lần lượt: sheets (BBan) >> 1.KL V >> 2.Cao Do
+ .... (in đến số chỉ định vd in từ 200~210)
+ 210

 

[PacificPR]

Dạo này cứ mải mê với mấy cái in và xuất ra Pdf quá nhỉ.
Theo mình thì đặt tên theo kiểu số TT của biên bản. Ví dụ: Biên bản số 1 thì (BBan tên là 1.1) >> 1.KL V (Tên là 1.2) >> 2.Cao Do (Tên là 1.3) lúc đó khi xuất ra Pdf thì thằng số to tự nhiên rúc vào ... thằng số bé

 

[vova2209]

Dạo này cứ mải mê với mấy cái in và xuất ra Pdf quá nhỉ.
Theo mình thì đặt tên theo kiểu số TT của biên bản. Ví dụ: Biên bản số 1 thì (BBan tên là 1.1) >> 1.KL V (Tên là 1.2) >> 2.Cao Do (Tên là 1.3) lúc đó khi xuất ra Pdf thì thằng số to tự nhiên rúc vào ... thằng số bé

^^! xuất ra pdf vẫn phải mất công chọn in, giờ em muốn kích in luôn cho nhàn, như này sẽ không phải xếp, chỉ việc đóng quyển là xong ạ
Mà xuất ra PDF để gửi cho Chủ đầu tư yêu cầu gửi bản mềm thôi ạ.

 

[PacificPR]

Hiện tại mình đang xuất ra từng file xong dùng Foxit PhantomPDF nối lại thành 1 file vừa gửi đi cho họ kiểm tra vừa là file in. Cũng không mất bao nhiêu thời gian

 

[vova2209]

Hiện tại mình đang xuất ra từng file xong dùng Foxit PhantomPDF nối lại thành 1 file vừa gửi đi cho họ kiểm tra vừa là file in. Cũng không mất bao nhiêu thời gian

Nhưng còn Biên bản muốn in và đóng quyển:
xuất ra pdf phải vào 3 sheets xuất ra pdf rồi lại vào nối file xong tiếp In
Cuối cùng lại trở về vị trí cũ, nên em muốn in luôn 3 sheets lần lượt
Mong anh giúp đỡ!

 

[vova2209]

Thì bạn viết code vòng lặp duyệt qua 3 sheet chỉ định của bạn
Trong mỗi sheet thì ô nào đó chứa giá trị trong vòng lặp (200, 201,... gì gì đó của bạn). ->bạn cho value của nó vào ô đó.
Tất nhiên ở mỗi sheet bạn dùng công thức tham chiếu tới cái gái trị 200,... này rồi (để nội dung tự chạy ra trên form biên bản của bạn)

Mỗi lần duyệt qua 1 sheet -> Print Out nó. (Tất nhiên Sheet bạn phải căn chỉnh trang in, mặc định hết rồi.) Code chỉ việc in máy in mặc định cho bạn thôi...

Vâng! em căn chỉnh hết rồi chỉ việc in theo thứ tự thôi ạ, a a viết cho em code với ạ

 

[vova2209]

Không Bác nào giúp em à

 

[vova2209]

Số 200 tới 210 bạn có thể gõ ở sheet nào đó & đưa vào code. Code mẫu tôi viết trực tiếp vào luôn.
Code nó dạng như vậy.

Public Sub GPE()
Dim I As Long, tArr(), J As Long
tArr = Array("BBan", "1.KL V", "2.Cao Do")
For J = 200 To 210
    For I = 0 To UBound(tArr)
        If I = 0 Then
            Sheets(tArr(I)).[AJ1].Value = J
        ElseIf I = 1 Then
            Sheets(tArr(I)).[J8].Value = J
        Else
            Sheets(tArr(I)).[O8].Value = J
        End If
        Sheets(tArr(I)).PrintPreview  '.PrintOut  Thế PrintPreview thành PrintOut nếu muốn in ra máy in mặc định.
    Next
Next
End Sub

Vâng! em cho vào form rồi ạ, cảm ơn anh nhiều

 

[vova2209]

em xin cảm ơn!