Giúp vba xuất excel ra pdf

[trongtuan83]

Mình muốn xuất file excel ra pdf nhưng bị ghi đè chỉ còn 1 file cuối cùng, mình muốn xuất sh1 thành trang 1, sh11 thanh trang 2, sheet 12 thành trang 3 tren 1 file pdf thì phải chỉnh code thế nào? Mong các bạn giúp đỡ.

Sub xuatpdf()
Dim sFilename As String
Dim b1, b2, i&
b1 = Sheet1.Range("R4").Value
b2 = Sheet1.Range("R5").Value
For i = b1 To b2
Sheet1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, Quality:=xlQualityStandard
Sheet11.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, Quality:=xlQualityStandard
Sheet12.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, Quality:=xlQualityStandard
Next
End Sub

 

[HUYNHTIEN0202]

Sub XuatPDF
Application.DisplayAlerts = False
ActiveWorkbook.ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & Sheet1.[H1], Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Application.DisplayAlerts = True
End sub