VBA Set Print Area Automatic

[snoopy1150]

เรียน ทุกท่าน ครับ

คือผมสร้างเอกสารขึ้นมา 1 ชุดเพื่อเป็น From Master แต่ผมติดตรง Set print Area ในหน้ากระดาษ ให้เท่ากับข้อมูลที่มีอยู่

จึงอยากรบกวนผู้รู้ หรือ คนที่พอจะมีวิธีการเขีนน Code ให้ปรับ Print Area ให้พอกับข้อมูลที่มีอยู่ครับ ซึ่งผมลองแล้วแต่ก็ติดและงงมากครับ

ทั้งนี้ผมได้แนบไฟล์มาด้วยครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub Printrang()
    Dim Print_Area As String
    Sheets("From Return").Select
    Print_Area = Range("a1", Range("a" & Rows.Count).End(xlUp) _
        .Offset(0, 5)).Address
    'Application.GoTo Reference:="Print_Area"
    ActiveSheet.PageSetup.PrintArea = Print_Area
    '...Other code... 
End Sub

[snoopy1150]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub Printrang()
    Dim Print_Area As String
    Sheets("From Return").Select
    Print_Area = Range("a1", Range("a" & Rows.Count).End(xlUp) _
        .Offset(0, 5)).Address
    'Application.GoTo Reference:="Print_Area"
    ActiveSheet.PageSetup.PrintArea = Print_Area
    '...Other code... 
End Sub

เรียน คุร คนควน ครับ

ผมได้ลองปรับ code ตามที่แนะนำมาแล้ว ปรากฏว่า ใช่ตามที่ต้องการเลยครับ

ขอบคุณมากครับ