Tạo vùng in tự động bằng VBA

[tribobo1993]

Thử code sau hên thì trúng. sửa lại vùng in ("A1:G86") theo ý mình

Range("A1:G86").PrintOut 1  

View more random threads:

• File Excel ko lưu được
• File addin bị lỗi trong excel 2010
• Đánh dấu Cell đã Enter qua trong Excel
• file excel cho hình thức nhật kí sổ cái !
• Giúp e giải bài toán cộng từ nhân chia theo tùy chọn công thức với
• Tìm giá trị với 2 điều kiện đồng thời cùng hàng
• Tuyển gấp giảng viên kế toán, làm việc partime hoặc fulltime tại Hà Nội
• Tính lương hưu
• nhờ các bác giúp đánh thời gian tự động
• Giúp em chuyển danh sách này thành viết hoa toàn bộ với

[sangame]

Chào anh chị!
Anh chị giỏi về VBA viết giúp em đoạn VBA để tạo vùng in như trong file cell đính kèm
Ở sheet "Chua dat trang in" la sheet ma trang trên cell chưa được tạo theo vùng in ý muốn của mình
Ở sheet "Dat trang in" la sheet ma mình đã đặt trang in.
Mỗi trang in đều được nằm trong vùng Comment "INHOME" đến "INEND"

Em xin chân thành cám ơn!

[kenshin]

Thử code sau hên thì trúng. sửa lại vùng in ("A1:G86") theo ý mình

<div class="bbcode_container">
<div class="bbcode_description">PHP Code:

</div>
</div>
</div>
Có cách nào cho nó chọn hết các vùng và đặt lệnh in toàn bộ không bạn?

[mrjackhero]

Có cách nào cho nó chọn hết các vùng và đặt lệnh in toàn bộ không bạn?

Muốn vậy Record macro của bác Bill sửa lại một tẹo là xong
tập làm đi nha

[putadesign]

Mình mới coi lại file cua bạn có mấy biên bản giống nhau sao ko làm thành một thôi khi thay đổi thông tin thì lấy ở sheet khác qua sử dụng vadatation list lấy thông tin qua vvvvvvv.......
tại sao phải làm nhiều mẫu giống nhau như vậy cho To file ra

Đấy là ví dụ của mình thôi, mình chuyên lập biên bản nghiệm thu nên các biên bản khác nhau rất nhiều, đặc biệt là tiêu chuẩn. File trên là mẫu mình gửi để các bạn giúp mình viết 1 code đặt trang in theo vùng các biên bản đó

[vomaiduyphuong]

Muốn vậy Record macro của bác Bill sửa lại một tẹo là xong
tập làm đi nha

Mình đã làm rồi nhưng không biết lặp lại vùng từ comment INHOME đến INEND như thế nào, bạn chỉ giúp mình được không?

[nhhoang19]

Chào anh chị!
Anh chị giỏi về VBA viết giúp em đoạn VBA để tạo vùng in như trong file cell đính kèm
Ở sheet "Chua dat trang in" la sheet ma trang trên cell chưa được tạo theo vùng in ý muốn của mình
Ở sheet "Dat trang in" la sheet ma mình đã đặt trang in.
Mỗi trang in đều được nằm trong vùng Comment "INHOME" đến "INEND"

Em xin chân thành cám ơn!

Tôi record Marco set print area thì được code này,

Sub Macro1()
    ActiveSheet.PageSetup.PrintArea = "$C$1:$O$84"
End Sub

Tùy bạn điều chỉnh vùng set print nhé.

Tinh chỉnh chút là được:

Sub TaoVungIn()
    With ActiveSheet
        .PageSetup.PrintArea = "C1:O84,C87:O169"
    End With
End Sub

[quatangdn1]

Tôi record Marco set print area thì được code này,

<div class="bbcode_container">
<div class="bbcode_description">Code:

</div>

</div>
</div>
</div>
Vấn đề là nếu có 1000 vùng như thế thì mình chọn cả ngày cũng không ổn bạn à. Mình nghĩ nếu dùng vòng lặp để chọn tất cả các vùng "INHOME - INEND" sau đó mới đặt trang in thì mới ổn được.
Nhưng VBA mình kém quá nên không sử lý được vấn đề này.

[chamhet224]

Vấn đề là nếu có 1000 vùng như thế thì mình chọn cả ngày cũng không ổn bạn à. Mình nghĩ nếu dùng vòng lặp để chọn tất cả các vùng "INHOME - INEND" sau đó mới đặt trang in thì mới ổn được.
Nhưng VBA mình kém quá nên không sử lý được vấn đề này.

Mình mới coi lại file cua bạn có mấy biên bản giống nhau sao ko làm thành một thôi khi thay đổi thông tin thì lấy ở sheet khác qua sử dụng vadatation list lấy thông tin qua vvvvvvv.......
tại sao phải làm nhiều mẫu giống nhau như vậy cho To file ra