Snasui Excel Forum

Code: Select all

Sub Printrang()
 Dim Print_Area As String
    Sheets("รายงาน").Select
    Print_Area = Range("b1", Range("b" & Rows.Count).End(xlUp).Offset(0, 6)).Address
    ActiveSheet.PageSetup.PrintArea = Print_Area
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\" & Range("F1").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, OpenAfterPublish:=True
End Sub

Code: Select all

Sub SetPrintAreaSetPrintAreaBeforePrint()
Dim i As Integer
Dim lng As Long
lng = Rows.Count
i = Range("B" & lng).End(xlUp).Row
    ActiveSheet.PageSetup.PrintArea = "$A$2:$G$" & i
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\" & Range("F1").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, OpenAfterPublish:=True
End Sub

Code: Select all

'Other code
Dim lng As Long
lng = Rows.Count
i = Range("B" & lng).End(xlUp).Row
Do
    i = i - 1
Loop Until Range("b" & i).Value <> ""

ActiveSheet.PageSetup.PrintArea = "$A$2:$G$" & i
'Other code