code in giấy ngang (2 người xem)

[Rùa Con 1080]

Chào mọi người!
Em có đoạn code của AC trên DD giúp cho khi nhấn vào thì in(PrintOut)

With Worksheets("Bao cao").PageSetup
 .PrintTitleRows = "$1:$4"
 .PrintTitleColumns = "$A:$G"
End With
    Worksheets("Bao cao").Range("A1:G" & ListBox7.ListCount + 4).PrintOut

nhưng khi in là in theo mặc định giấy khổ đứng.
Mong các AC giúp cho một nút để tùy chọn khổ giấy là ngang hay đứng.
Thân chào.

 

[Rùa Con 1080]

Sao chổ "Page Layout"-> With: 1 Page->Heigth: Automatic-> Scale của anh là 100%, sao của em có 96%
Mong Anh chỉ cách.

 

[langtuchungtinh360]

Chào Anh langtuchungtinh360!
Em ngồi quậy cả buổi thì mới được, bằng cách làm thủ công như Anh hướng dẫn rồi mới cài code.
Em cứ tưởng code nó làm hết.

code không làm hết đâu bạn, code chỉ làm giùm bạn khi dữ liệu bạn cài đặt chuẩn rồi.
khi dữ liệu bạn chưa cài đặt chuẩn sao nó làm đúng được, cái máy mà đâu có thông minh đến nỗi nó biết chỗ đó sai sửa lại cho bạn.
bạn chỉ cần làm chuẩn 1 lần rồi mấy lần sau code nó tự làm cho bạn
lỗi bạn mắc phải khi in ra không phải là 3 trang là do bạn có cài đặt in cột tiêu đề, trong khi cái này không cần thiết (đã có nói ở trên rồi) bạn không xem kỹ nên làm không ra.
tại sao 100%
lúc bạn để automatic, 100% thì bảng tính của bạn sẽ có 6 trang
còn khi bạn chỉnh lại Width = 1 giống như bạn để chuột vào lề bên phải kéo qua hết phần bảng tính, thì khi đó để hiển thị đủ thông tin trong 1 khổ giấy thì bắt buộc nó sẽ zoom nhỏ lại. chữ sẽ nhỏ lại
ở đây do chỉ có vài cột bé bé nên chỉ zoom lại 96% như bạn thấy.
tôi chả biết đường mà giải thích đâu, nói hồi hồi lại lạc đề, bác nào giỏi biện hộ vô giải thích giùm em nó cái.

 

[Rùa Con 1080]

Cám ơn anh langtuchungtinh360!
Anh giúp em dịnh dạng cho dữ lieu khi nạp từ listbox7 vào cột C và E có định dạng là Date, cột E,G,H là "#,##0.00" để khi in nó cũng như vậy.
Vì có lúc in em cột C và E khúc trên là Date khúc dưới là Số, và cột E, G , H khúc trên là "#,##0.00" khúc dưới là "####"
Mong anh giúp.

 

[Rùa Con 1080]

Sao anh langtuchungtinh360 nghỉ chơi GPE rồi!!!!!