Snasui Excel Forum

[quote="snasui"]:D ลองปรับ Code เป็นตามด้านล่างครับ
[code]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][/quote]


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

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

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

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

:D ลองปรับ Code เป็นตามด้านล่างครับ
[code]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]

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

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

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

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