Bạn dùng code đơn giản này chỉnh sửa lại theo yêu cầu
Sub Macro1()
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
'Sheet1, sheet2, sheet3 la ten cac sheet muon in hang loat
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.FullName...