Lấy tên khổ giấy in bằng VBA

[moihocvba]

Chào cả nhà ạ!
Em biết lệnh set trang in cho 1 sheet rồi

    With Sheets("Sheet1").PageSetup
      .PaperSize = xlPaperA4
    End With

Cho em hỏi lệnh nào lấy được Tên khổ giấy in của 1 Sheet1 (Vào menu File - Print cũng xem được nhưng em muốn dùng VBA để lấy ra ạ)
Kết quả của lệnh này sẽ trả về kết quả: xlPaperA4
Cách này để em lấy tên khổ giấy in của 1 sheet để áp vào hàng loạt các sheet khác ạ!
Em cám ơn anh chị đã hỗ trợ!

 

[BuiQuangThuan]

Cách này để em lấy tên khổ giấy in của 1 sheet để áp vào hàng loạt các sheet khác ạ!

Ban đã setup nó là khổ A4 thì chắc chắn nó sẽ là A4 rồi thì cần gì phải lấy nhỉ

 

[moihocvba]

Ban đã setup nó là khổ A4 thì chắc chắn nó sẽ là A4 rồi thì cần gì phải lấy nhỉ

Em muốn lấy tên khổ giấy của 1 trang mà mình chưa biết và không phải của mình set ạ.

 

[BuiQuangThuan]

Em muốn lấy tên khổ giấy của 1 trang mà mình chưa biết và không phải của mình set ạ.

Thử thế này coi

giá trị của T là các con số thuộc các loại khổ giấy in này

 

[moihocvba]

Thử thế này coi
View attachment 284691
giá trị của T là các con số thuộc các loại khổ giấy in này
View attachment 284692

Vâng anh, lấy con số cũng được đó anh, không cần phải lấy tên!
Cám ơn anh đã hỗ trợ em!

 

[manhhieu2909]

Để lấy tên khổ giấy in bằng VBA, bạn có thể sử dụng hàm PageSetup.PaperSize. Hàm này trả về số liên quan đến khổ giấy đang được in.

Để lấy tên khổ giấy, bạn có thể tạo một bảng liên kết giữa số và tên khổ giấy. Sau đó, bạn có thể sử dụng hàm VLOOKUP để truy vấn bảng và lấy tên khổ giấy tương ứng.

Đây là một ví dụ cách sử dụng hàm VLOOKUP để lấy tên khổ giấy:

Sub GetPaperSize() Dim ws As Worksheet Dim paperSize As Long Dim paperSizeName As String

' Lấy khổ giấy hiện tại Set ws = ActiveSheet paperSize = ws.PageSetup.PaperSize

' Truy vấn bảng liên kết giữa số và tên khổ giấy paperSizeName = Application.WorksheetFunction.VLookup(paperSize, Range("A1:B10"), 2, False)

' Hiển thị tên khổ giấy MsgBox "Khổ giấy hiện tại là: " & paperSizeName End Sub