Nhờ mọi nguời sửa code hoặc thay code về vấn đề định dạng và page setup (1 người xem)

[babyheomoi]

E có file xuất dữ liệu hàng ngày! Tuy nhiền hàng ngày đều phải ngồi kéo hàng và cột, định dạng lại để cho vừa trang in nên rất mất thời gian!E có làm thử marco và test thì thấy nó chạy khá chậm và vẫn chưa đúng ý mình! Ngoài ra e còn bị lỗi merge cell nữa!Em nhờ mọi người giúp e file trên như sau:
1. Các data font chữ 6-7, còn heading thì 10 (data chữ 10 cũng dc nhưng em sợ không đủ trang in vì nó có nhiều cột wa)
2. Các cột kéo lại gần nhau (dạng như auto fit và waptext). (Riêng 2 cột cuối có thể bỏ nội dung)
3. Tự động fit để vừa trang in với dữ liệu có được!
4. Save lại file dữ liệu theo tên ("hoadondien_ngay_thang_nam)

Hoặc nhờ mọi người chế lại code giúp em để load nhanh hơn!
Thanks mọi người trước!

 

[babyheomoi]

Mọi người ơi,giúp em với!

 

[hoanganhdl]

Record chức năng Fit to Page

Sub Macro3()
Sheets("sheet1").Select
Application.PrintCommunication = False
With ActiveSheet.PageSetup
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With
Application.PrintCommunication = True
End Sub

 

[babyheomoi]

Em cũng có thử cách này,tuy nhiên phát sinh vấn đề là fit như anh chỉ lúc in ra nó wa bé ko thay gì luôn.

 

[giaiphap]

Em cũng có thử cách này,tuy nhiên phát sinh vấn đề là fit như anh chỉ lúc in ra nó wa bé ko thay gì luôn.

Vì dữ liệu nhiều, mà muốn in trên cùng một trang phải chịu thôi bạn à.