Tính tỷ lệ in trong excel VBA

[trainai737]

các bác ơi, có cách nào dùng vba để tính tỷ lệ % này không
Mục đích: là chạy vba để in
+ mà mình nhận thấy sau khi cài đặt Fit all columns on one page xuất PDF thì bị nhảy không có đẹp như đã setup xong
+ Còn khi cài đặt Fit all columns on one page xong và click vào Adjust to và xuất PDF là nó đẹp như đã setup trước đó
+ Mình viết code thì nó không chọn được adjust to sau khi set Fit all columns on one page, và muốn chọn vào adjust to thì phải có % cố định khi viết code, không có tính được.
Tóm lại là mình muốn viết code để tính % này chính xác, vì chưa có phương pháp nào theo mình nghiên cứu, mong sẽ có bác nào đọc được và hiểu mình viết gì và thảo luận. (((. Xin cảm ơn ạ

 

[Mr.hieudoanxd]

các bác ơi, có cách nào dùng vba để tính tỷ lệ % này không
Mục đích: là chạy vba để in
+ mà mình nhận thấy sau khi cài đặt Fit all columns on one page xuất PDF thì bị nhảy không có đẹp như đã setup xong
+ Còn khi cài đặt Fit all columns on one page xong và click vào Adjust to và xuất PDF là nó đẹp như đã setup trước đó
+ Mình viết code thì nó không chọn được adjust to sau khi set Fit all columns on one page, và muốn chọn vào adjust to thì phải có % cố định khi viết code, không có tính được.
Tóm lại là mình muốn viết code để tính % này chính xác, vì chưa có phương pháp nào theo mình nghiên cứu, mong sẽ có bác nào đọc được và hiểu mình viết gì và thảo luận. (((. Xin cảm ơn ạ

1. Nó đã tự động thì đương nhiên là tỉ lệ nó phải cố định và không sửa được.
2. Bác thử show 2 hình 1 cái đẹp 1 cái xấu bác nói xem nào
3. Chỉnh tỉ lệ in thì câu lệnh đơn giản ví dụ

Activesheet.Pagesetup.Zoom=90

4. Tuy nhiên khi chỉnh về "Fit all columns on one page" thì trước khi viết code phải thêm lệnh sau:

    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        '.FitToPagesTall = 0
    End With

Do đó việc xác định lại không chính xác nữa vì lúc này .Zoom có giá trị bằng False

 

[trainai737]

1. Nó đã tự động thì đương nhiên là tỉ lệ nó phải cố định và không sửa được.
2. Bác thử show 2 hình 1 cái đẹp 1 cái xấu bác nói xem nào
3. Chỉnh tỉ lệ in thì câu lệnh đơn giản ví dụ

Activesheet.Pagesetup.Zoom=90

4. Tuy nhiên khi chỉnh về "Fit all columns on one page" thì trước khi viết code phải thêm lệnh sau:

    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        '.FitToPagesTall = 0
    End With

Do đó việc xác định lại không chính xác nữa vì lúc này .Zoom có giá trị bằng False

ví dụ: Dàn trang in ở ở phần fit to là 3 trang, khi xuất PDF nó sẽ ra 4 trang. còn khi chỉnh fit to xong rồi click vào adjust to và xuất thì nó sẽ là 3 trang như mình đã dàn

 

[Mr.hieudoanxd]

gõ vào Khung Immediate code sau

Application.MapPaperSize = false

hoặc chạy code trên trong 1 sub bất kì

 

[trainai737]

gõ vào Khung Immediate code sau

Application.MapPaperSize = false

hoặc chạy code trên trong 1 sub bất kì

cảm ơn bác đã chia sẻ, em sẽ sử dụng code này