Xoá dòng tự động và định dạng trang in

[bda50dh]

Không thể viết đầy đủ được hả bạn?

anh xem qua giúp em với

 

[BuiQuangThuan]

anh xem qua giúp em với

Em còn nhỏ xíu tuổi ấy mà. Nếu vậy thì sẽ không dùng cái addin đó nữa. Hãy nói rõ cách làm rồi viết code vào đó luôn

 

[bda50dh]

Em còn nhỏ xíu tuổi ấy mà. Nếu vậy thì sẽ không dùng cái addin đó nữa. Hãy nói rõ cách làm rồi viết code vào đó luôn

sau khi được các anh viết cho cái code theo như mong muốn,bây giờ em in hàng loạt biên bản thì lại không được,nên anh xem giúp chúng có bị lỗi gì không.Em thì không rành về VBA.

 

[bda50dh]

Em chạy code của anh thì rất tuyệt ạ,nhưng em dùng addin in hàng loạt thì lại không in được như ý muốn ,em dùng phần mềm pdf factory để nối file và xuất pdf.Anh xem giúp em với a.

Nhờ chị xem nốt giúp em công đoạn cuối này với a.Em muốn in hàng loạt ngoài addin trên em có tham khảo code trên mạng nhưng không tài nào in hàng loạt mà vừa dãn dòng vừa trong khổ giấy được ạ.code in hàng loạt em tham khảo trên mạng
Sub printF()
Dim i as Long,printFrom As Long,printTo as Long
printFrom = sheet2.Range("i15").value
printTo = sheet2.Range("i16").value
For i = printFrom to printTo
Sheet2.Range("I15").value = i
Sheet2.PrintOut Preview:=false
Next i
end sub

 

[HUONGHCKT]

Chỗ MsgBox Trang:
Chắc debug code nhưng quên xóa.

Cảm ơn anh đã xem bài. Đúng là chỗ đó để debug nên thừa, quên xóa

 

[HUONGHCKT]

sau khi được các anh viết cho cái code theo như mong muốn,bây giờ em in hàng loạt biên bản thì lại không được,nên anh xem giúp chúng có bị lỗi gì không.Em thì không rành về VBA.

Nhờ chị xem nốt giúp em công đoạn cuối này với a.Em muốn in hàng loạt ngoài addin trên em có tham khảo code trên mạng nhưng không tài nào in hàng loạt mà vừa dãn dòng vừa trong khổ giấy được ạ.code in hàng loạt em tham khảo trên mạng
Sub printF()
Dim i as Long,printFrom As Long,printTo as Long
printFrom = sheet2.Range("i15").value
printTo = sheet2.Range("i16").value
For i = printFrom to printTo
Sheet2.Range("I15").value = i
Sheet2.PrintOut Preview:=false
Next i
end sub

Có đúng là bạn muốn tạo file PDF từ sheet (TRANG CAN SUA)? và in file PDF này
Còn in hàng loạt là: in từ số... đến số... theo quy trình click nut In thì Sheet(TRANG.....).range(E3) tăng thêm 1 ===>file Pdf được tạo==> in file PDF này. Tiếp tục lặp lại quy trình trên đến (đến số) thì dùng lại phải không?
Tôi gửi 1 file gán dữ liệu vào mẫu ( bằng VBA chứ không phải bằng Công thức) và tạo file PDF cho bạn tham khảo.

 

[bda50dh]

Có đúng là bạn muốn tạo file PDF từ sheet (TRANG CAN SUA)? và in file PDF này
Còn in hàng loạt là: in từ số... đến số... theo quy trình click nut In thì Sheet(TRANG.....).range(E3) tăng thêm 1 ===>file Pdf được tạo==> in file PDF này. Tiếp tục lặp lại quy trình trên đến (đến số) thì dùng lại phải không?
Tôi gửi 1 file gán dữ liệu vào mẫu ( bằng VBA chứ không phải bằng Công thức) và tạo file PDF cho bạn tham khảo.

Vâng em muốn in ra PDF từ sheet (TRANG CAN SUA) đã cố định khung in và in hàng loạt click 1 cái chạy từ 1-số cần in.
- Trong bản excel của anh thì khi kích dấu mũi tên các số không tự động nhảy và thay dữ liệu vào luôn anh nhỉ?mỗi lần cần in là phải ấn nút tạo file PDF nên hơi mất thủ công ạ.
- Code trong file của anh hiện đang đặt mật khẩu ạ.