PrintArea một vùng dữ liệu động trong Macro VBA (1 người xem)

[xuanquy1188]

Chào các bạn!

Mình muốn PrintArea một vùng dữ liệu động kéo từ từ A1 xuống đến C bất kỳ, như trong File đính kèm. Có nghĩa là khi nhập thêm dữ liệu đến đâu, sau đó Nhấn Button Chọn Vùng In thì nó sẽ tự động chọn PrintArea vùng có dữ liệu đến đó.

Ý của mình là chỉ chọn vùng In thôi chứ không được phép In nhé

Mình có ghi Macro nhưng vùng dữ liệu bị cố định như lệnh phía dưới.

Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$5"

Mình có đặt biến cho nó chạy theo dữ liệu rồi chèn vào nhưng câu lệnh bị lỗi và không biết sửa như thế nào sau đó mình xóa đi

Các bạn giúp đỡ mình vấn đề này với nhé.

Nhân tiện cho mình hỏi thêm, Khi chọn vùng in động xong. Sau đó sẽ có lệnh In luôn thì thêm code như thế nào ạ.

Cám ơn vì tất cả.

 

[giaiphap]

Vậy bạn sửa lại thế này thử xem.

Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$" & Range("C65000").End(xlUp).Row

 

[xuanquy1188]

Hi, cảm ơn các bạn.

Các bạn cho mình hỏi thêm một chút nhé.

Vấn đề bây h của mình là, mình sẽ đếm số sinh viên vào ô D1 và chỉ PintArea từ A1 xuống đến sinh viên cuối cùng đó thôi. Và dòng Tổng Cộng không có PintArea.

Vậy đoạn code mình cần sửa lại là gì ạ? Các bạn xem file đính kèm nhé.

Cảm ơn!

 

[giaiphap]

Vậy bạn sửa thế này thử xem.

Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$" & Range("C1").End(xlDown).Row

 

[phulien1902]

Hi, cảm ơn các bạn.

Các bạn cho mình hỏi thêm một chút nhé.

Vấn đề bây h của mình là, mình sẽ đếm số sinh viên vào ô D1 và chỉ PintArea từ A1 xuống đến sinh viên cuối cùng đó thôi. Và dòng Tổng Cộng không có PintArea.

Vậy đoạn code mình cần sửa lại là gì ạ? Các bạn xem file đính kèm nhé.

Cảm ơn!

Bạn có thể tham khảo:

Sub abc()
Dim LR As Long
With ActiveSheet
    LR = .Range("A" & Rows.Count).End(3).Row
    .PageSetup.PrintArea = "A1:C" & LR
    '.PrintOut
End With
End Sub

 

[xuanquy1188]

Mình đã làm và chỉnh sửa theo ý mình được rồi

Cám ơn các bạn rất nhiều!