thiết lập vùng print are bằng code VBA (1 người xem)

[quoc nhat]

Thầy cô và các anh chị cho em hỏi tý:
Chả là em có một danh sách dài:
Số cột: Cột A đến cột Z
Số dòng chưa biết trước vì có thể thêm hoặc bớt
Vậy Mình sẽ viết code VBA như thế nào để set print are từ cột A:X cho đến dòng cuối có dữ liệu.
Mong được sự giải đáp của mọi người...
Em cảm ơn nhiều!

 

[giangleloi]

Thầy cô và các anh chị cho em hỏi tý:
Chả là em có một danh sách dài:
Số cột: Cột A đến cột Z
Số dòng chưa biết trước vì có thể thêm hoặc bớt
Vậy Mình sẽ viết code VBA như thế nào để set print are từ cột A:X cho đến dòng cuối có dữ liệu.
Mong được sự giải đáp của mọi người...
Em cảm ơn nhiều!

Thì hãy tìm ra dòng cuối cùng:
Ví dụ: R = Range("A" & Rows.count).end(3).Row
Range("A1:Z" & R).PrintOut
P/s: Không có file nên viết đại. hehe

 

[quoc nhat]

Thì hãy tìm ra dòng cuối cùng:
Ví dụ: R = Range("A" & Rows.count).end(3).Row
Range("A1:Z" & R).PrintOut
P/s: Không có file nên viết đại. hehe

Bạn hiểu sai ý mình rồi
Mình muốn Set print are mà

 

[giangleloi]

Bạn hiểu sai ý mình rồi
Mình muốn Set print are mà

Thế thì kiểu như vầy. Muốn canh lề trái, phải,.... thì sẽ thêm vào:

Sub GPE()
Dim LR As Long
  LR = Range("A" & Rows.Count).End(xlUp).Row
   With ActiveSheet.PageSetup
    .PrintTitleRows = "1:1"
    .PrintArea = "A1:Z" & LR
   End With
End Sub

 

[giaiphap]

Bạn hiểu sai ý mình rồi
Mình muốn Set print are mà

thì dùng lệnh

ActiveSheet.PageSetup.PrintArea = "A1:Z" & ActiveSheet.UsedRange.Rows.Count[COLOR=#000000]
[/COLOR]

 

[quoc nhat]

Thế thì kiểu như vầy. Muốn canh lề trái, phải,.... thì sẽ thêm vào:

Sub GPE()
Dim LR As Long
  LR = Range("A" & Rows.Count).End(xlUp).Row
   With ActiveSheet.PageSetup
    .PrintTitleRows = "1:1"
    .PrintArea = "A1:Z" & LR
   End With
End Sub

sao mình làm không được nhỉ
Bạn xem file rồi giúp mình với
http://www.mediafire.com/view/8cifu5dgj6a9ler/fdfdfd.xls

 

[giangleloi]

sao mình làm không được nhỉ
Bạn xem file rồi giúp mình với
http://www.mediafire.com/view/8cifu5dgj6a9ler/fdfdfd.xls

Code đã chạy rồi đấy. Nhưng dường như chưa thể hiện đúng ý bạn. Ban muốn sẽ thấy như thế nào?
Thử nguyên đoạn code này. Bấm Ctrl + F2 bạn sẽ thấy code có chạy

Sub GPE()
Dim LR As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
With ActiveSheet.PageSetup
    .PrintTitleRows = "1:8"
    .PrintArea = "A1:Z" & LR
End With
End Sub

 

[quoc nhat]

thì dùng lệnh

ActiveSheet.PageSetup.PrintArea = "A1:Z" & ActiveSheet.UsedRange.Rows.Count[COLOR=#000000]
[/COLOR]

Không ổn lắm! mình thấy set print are thì chòn đúng dòng cuối rồi Nhưng sao máy vẫn in các trang không có dữ liệu nhĩ. Nó khác khi mình làm bằng tay có nghĩa là khi mình nhấn Printpreview thì nó chỉ cho xem đến trang có dòng cuối có dữ liệu thôi ấy

 

[giangleloi]

Không ổn lắm! mình thấy set print are thì chòn đúng dòng cuối rồi Nhưng sao máy vẫn in các trang không có dữ liệu nhĩ. Nó khác khi mình làm bằng tay có nghĩa là khi mình nhấn Printpreview thì nó chỉ cho xem đến trang có dòng cuối có dữ liệu thôi ấy

Căn bản vì dữ liệu của bạn đến cột X thôi. Bạn chọn từ "A1:X" là ok.

 

[quoc nhat]

Ok rồi các bạn ơi
cảm ơn các bạn đã giúp đỡ