Snasui Excel Forum

Code: Select all

Sub MakeFolder()

    Dim sFolderPath As String
    Dim Path As String
    Dim FName As String
    On Error Resume Next
    Application.ScreenUpdating = False
      
    sFolderPath = "C:\" & Range("R2").Value
    If Dir(sFolderPath, vbDirectory) = "" Then
        MkDir sFolderPath
    End If
    
    sFolderPath = "C:\" & Range("R2").Value & "\" & Range("R3").Value
    If Dir(sFolderPath, vbDirectory) = "" Then
        MkDir sFolderPath
    End If
    
End Sub

Code: Select all

Sub PrintPDF()
Dim FPath As String
Dim i As Long
Call MakeFolder
FPath = "C:\" & Range("R2").Value & "\" & Range("R3").Value
        If MsgBox("คุณต้องการพิมพ์เอกสารทั้งหมด ใช่หรือไม่?", 36, "ยืนยันการสั่งพิมพ์") = 6 Then
            Sheet1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath & Sheet1.Range("H4").Value & ".pdf"

            MsgBox " พิมพ์แบบรายงานผลการเรียนรายบุคคลเสร็จเรียบร้อยแล้ว! ! !"
        Else
                    MsgBox "คุณได้ยกเลิกการสั่งพิมพ์", vbInformation, "Cencel Printing"

        End If
End Sub