VBA การใช้ pagesetup เพื่อกำหนดพื้นที่พิมพ์ครับ

[DhitiBank]

สวัสดีครับอาจารย์และเพื่อนๆ

จากไฟล์ตัวอย่างมีปุ่ม "ซ่อน/ไม่ซ่อน" เพื่อกำหนดว่าจะให้พิมพ์พื้นที่ออกมาแค่ไหนหลังจากคีย์ข้อมูลครับ การซ่อนและยกเลิกการซ่อนเป็นไปตามต้องการแล้วครับ แต่ว่าพอจะสั่งปริ้นท์ ขนาดหน้ามันไม่ปรับตามพื้นที่ที่มี (ผมตั้งให้พิมพ์คอลัมน์ทั้งหมดภายใน 1 หน้า) เช่น จากไฟล์ตัวอย่าง พอซ่อนแล้วจะเห็นคอลัมน์ A - N เวลาสั่งปริ้นท์ก็น่าจะขยายช่วงข้อมูลดังกล่าวให้เต็มหน้า แต่ก็ไม่เป็นเช่นนั้น ผมต้องปรับโค้ดอย่างไรครับ

โค้ดที่เขียนไว้ครับ อยู่ที่ Procedure Hidden_toggle

Code: Select all

Public Sub Hidden_toggle()
    Dim i As Integer, j As Integer
    Dim lLastRow As Long
    Dim rPntAR As Range
    
    Application.ScreenUpdating = False
    With ActiveSheet
        .Unprotect
        For i = 11 To 26 Step 3
            If .Cells(4, i).Value > 0 Then j = i + 1
        Next i
        lLastRow = .Range("a" & Rows.Count) _
                                .End(xlUp).Offset(1, 0).Row
        
        If .Columns(26).Hidden = True Then
            .Range(.Columns(12), .Columns(26)).Hidden = False
            .PageSetup.PrintArea = .Range("a1").Address(0, 0) & ":" & _
                                    .Range("z" & lLastRow).Address(0, 0)
        Else
            .Range(.Columns(j), .Columns(26)).Hidden = True
            .PageSetup.PrintArea = .Cells(1, 1).Address(False, False) & ":" & _
                                    .Cells(lLastRow, j - 1).Address(False, False)
        End If
        
        .Protect
        .EnableSelection = xlUnlockedCells
    End With
    
End Sub

ขอบพระคุณครับ

[snasui]

ช่วยจับภาพมาให้เห็นว่าที่ต้องการให้เต็มหน้าที่ว่านั้นเป็นอย่างไร จะได้เข้าใจตรงกันครับ

[DhitiBank]

ขออภัยที่ตอบช้าครับ เดี๋ยวพรุ่งนี้จะจับภาพส่งให้ดูครับ

ขอบคุณมากเลยครับ

[DhitiBank]

สวัสดีครับ

เพิ่มรูปภาพครับ
รูปแรกคือแบบที่เป็นปัญหาอยู่ตอนนี้ครับ พอข้อมูลมีน้อย เวลาปริ้นท์ออกมาภาพก็เล็กมาก ทั้งๆ ที่เลือก Fit all columns on one page ในตัวเลือกก่อนสั่งพิมพ์แล้ว

ไม่ต้องการแบบนี้ครับ พื้นที่พิมพ์น้อย แต่ขนาดที่พิมพ์ออกมาก็เล็กตามไปด้วย

ไม่เต็ม.jpg (23.66 KiB) Viewed 156 times

ส่วนรูปที่ 2 และ 3 คือแบบที่คิดเอาไว้ครับ (ทำมือ ปรับ %scale เอาเองครับ)

ต้องการ - คอลัมน์น้อย.jpg (82.18 KiB) Viewed 156 times

ต้องการ - คอลัมน์มากขึ้น.jpg (79.82 KiB) Viewed 156 times

ผมต้องปรับโค้ดอย่างไรครับ

[logic]

จากภาพแรกบรรทัดมีจำนวนมาก มันก็ย่อมต้องเล็กลงครับ จะให้มันใหญ่ตามภาพที่สองคงเป็นไปไม่ได้ ยกเว้นบรรทัดมีจำนวนเท่ากัน

[DhitiBank]

ผมขออภัยที่เขียนไม่ชัดเจนครับ

จำนวนบรรทัดมากไม่เป็นไรครับ ขึ้นหน้าใหม่ แต่ตามที่ผมคิดคืออยากให้ขนาดหน้ามันปรับให้พอดีตามจำนวนคอลัมน์ครับ ผมไม่แน่ใจว่าต้องเขียนโค้ดแบบไหน

ตอนแรกลองค้นหาวิธีเขียนโค้ดปรับพื้นที่พิมพ์อัตโนมัติตามช่วงข้อมูลในอินเทอร์เน็ต ก็เห็นว่ามีคนใช้ .PageSetup.PrintArea ผมก็เลยลองเอามาใช้ดู แล้วก็ตั้งตรงตัวเลือกการปริ้นท์ให้บีบคอลัมน์ทั้งหมดให้พอดีใน 1 หน้า ผมเข้าใจว่า พอตั้งค่าแบบนี้แล้ว เวลาปริ้นท์ ขนาดหน้าจะปรับให้พอดีกับคอลัมน์ที่มีข้อมูลเลย เช่น บางทีเซลล์จดบิลเครดิตมา 2 ใบ พื้นที่พิมพ์ก็จะครอบคลุม คอลัมน์ A -> Q แต่ถ้าไม่มีบิลเครดิตเลย พื้นที่ที่จะต้องพิมพ์ก็จะมีแค่ คอลัมน์ A -> K ครับ (ช่องใส่ข้อมูลบิลเครดิตที่ไม่มีข้อมูลจะถูกซ่อนเอาไว้ โดยกดปุ่ม "ซ่อน/ไม่ซ่อน" ครับ) แล้วพอเวลาสั่งปริ้นท์ ไม่ว่าจะมีคอลัมน์แค่ไหน ก็จะถูกทำให้พอดีใน 1 หน้าโดยอัตโนมัติ

แต่พอลองทำจริงแล้ว มันไม่เป็นอย่างที่คิดครับ

[snasui]

ลองกำหนดเฉพาะความกว้างของหน้ากระดาษเข้ามาช่วยตามด้านล่างดูครับ

Code: Select all

...
If .Columns(26).Hidden = True Then
    .Range(.Columns(12), .Columns(26)).Hidden = False
    .PageSetup.PrintArea = .Range("a1").Address(0, 0) & ":" & _
        .Range("z" & lLastRow).Address(0, 0)
    .PageSetup.FitToPagesWide = 1
Else
    .Range(.Columns(j), .Columns(26)).Hidden = True
    .PageSetup.PrintArea = .Cells(1, 1).Address(False, False) & ":" & _
        .Cells(lLastRow, j - 1).Address(False, False)
    .PageSetup.FitToPagesWide = 1
End If
...

[DhitiBank]

ขอบคุณครับอาจารย์ เดี๋ยวกลับบ้านแล้วจะลองทำแล้วจะมารายงานผลครับ

[DhitiBank]

มารายงานผลครับ

ลองใส่โค้ดดูแล้วแต่เวลาสั่งปริ้นท์ก็ยังเหมือนเดิมครับอาจารย์

ทดลองสั่งปริ้นท์หลังแก้โค้ดแล้ว ยังไม่เต็มหน้า

1.jpg (66.68 KiB) Viewed 140 times

ส่วนด้านล่างนี่คือแบบที่ต้องการครับ

ที่คิดไว้คืออยากได้ลักษณะนี้ครับ

2.jpg (89.53 KiB) Viewed 140 times

ตอนนี้ ผมลองบันทึกแมโคร เจอโค้ด .PageSetup.Orientation ก็เลยลองเพิ่มเข้าไปโดยหากคอลัมนฺ์ไม่มากก็ให้ปริ้นท์แนวตั้ง หากมากก็ปริ้นท์แนวนอน พอสั่งปริ้นท์ก็ยังไม่ปรับขนาดให้พอดี 1 หน้าเหมือนเดิมแต่ช่องว่างก็ดูลดลง พอใช้ได้แล้วครับ ไม่พอดี 1 หน้าก็ไม่เป็นไรครับ ขอบพระคุณมากครับ