Làm thế nào để viết câu lệnh in vùng hợp đồng lao động (Print_Area) vậy

Chi tiết lỗi 1004 là: "document not saved. the document may be open or an error may have been encountered when saving"

Chào bạn lỗi sinh ra ở đây do đường dẫn trong file bị sai "/" bạn đổi phần đó lại là đúng.
Sub in_canhan()


'Sheet2.Range("B1:G143").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\TuanBa\Desktop\tao moi\Vu Van A_001HDLDCT.pdf"
'
Dim i As Long
i = ActiveCell.Row
If Sheet3.Range("Q" & i).Value = "" Or Sheet3.Range("P" & i).Value = "" Then
MsgBox "So HDLD hoac Loai HD bi thieu", vbOKOnly, "Thong Bao"
Else
Sheet2.Range("O3").Value = Sheet3.Range("Q" & i).Value
Sheet2.Activate
'Thuc hien lenh in HDLD ra file PDF
Dim duongdan As String
Dim tenfile As String
tenfile = Sheet3.Range("D" & i).Value & "_" & Sheet3.Range("Q" & i).Value
duongdan = "C:\Users\TuanBa\Desktop\tao moi\" & tenfile & ".pdf" ' thay lại duong dan
duongdan = Application.WorksheetFunction.Substitute(duongdan, "/", "_")
'Luu vung chon duoi dang PDF

Sheet2.Range("B1:G143").ExportAsFixedFormat Type:=xlTypePDF, Filename:=duongdan

End If
End Sub

Dạ vâng! em hiểu rồi. Em cảm ơn ạ!