ต้องการทำปุ่ม Save PDF รวม 5 หน้าในไฟล์เดียว ตามปุ่ม Preview ตามไฟล์ที่แนบมาครับ

[dang_xx]

Code: Select all

Sub PrintPreview2()
        Application.ScreenUpdating = False
        If [N3].Value = 0 Then
        MsgBox ("¢éÍÁÙÅäÁè¤Ãº ¢Ò´¢éÍÁÙÅ»ÃÐàÀ·§Ò¹")
        Else:  MyVar = [choice]
                 FromNum = 1
                 ToNum = 5
    
        For i = FromNum To ToNum
    
        [choice2] = i
        Calculate
        ActiveWindow.SelectedSheets.PrintPreview
    
        Next i
    
        [choice2] = 1
        
        MsgBox ("¾ÔÁ¾ì 5 ËÅÑ¡ÊÙµÃàÊÃç¨áÅéÇ")
        
        End If
        Application.ScreenUpdating = True
End Sub

[snasui]

ให้สร้างชีตสำหรับพิมพ์ไว้ต่างหากครับ

เมื่อ Loop ไป 1 ครั้งให้คัดลอกหน้าที่จะพิมพ์ไปวางในหน้านั้น โดยวางเรียงต่อกันไปทางด้านล่างเท่าจำนวน Loop จากนั้นกำหนด Print Area ให้กับพื้นที่นั้นแล้ว Print (Save as เป็น PDF) จากหน้านั้นแทนการ Loop แล้ว Print ไปทีละหน้า

การจะ Print ไปทีละหน้าแล้วให้อยู่ในไฟล์เดียวกันมักจะใช้โปรแกรมอื่นช่วยในการ Merge อีกที

ดูคำถามลักษณะเดียวกันที่นี่ครับ viewtopic.php?t=14223
viewtopic.php?t=19103