Hỏi: COde hoặc Macro save as file excel thành PDF

[pro8x]

Hiện tại mình có 1 file excel. Mình đã viết macro để file này save As dưới dạng PDF khi chạy. Nhưng vấn đề là file Save As của mình lại phải thay đổi tên ở mỗi lần Save. Và tên này được lấy theo dữ liệu ở ô A1 của sheet 1. Bạn nào biết cách nào chỉ mình với

 

[denell_tran]

Nhờ chủ thớt một chút ạ.

Em dùng đoạn code của bác @ndu96081631 và dùng đoạn gọi bình thường dưới đây ra mà bị báo lỗi.

Runtime error '28'
OUT OF STACK SPACE.

Mục đích của em là để mỗi lần in nó sẽ sao lưu sheet em in ra 1 file pdf tại một vị trí nhất định. Nhờ các bác sửa giúp cho hết lỗi ạ.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call PDF
End Sub
----
Sub PDF()
Dim wks As Worksheet
Dim FileName As String
Set wks = ActiveSheet
'With ThisWorkbook
FileName = "C:\Backup\PAYMENT SLIPS" & "\Prntd_" & wks.Range("G8").Value & "_PS No." & wks.Range("A13").Value & Format(Now, "_yymmdd_hhmmss")
'Worksheets.Select
wks.ExportAsFixedFormat 0, FileName
wks.Select
'End With
End Sub

Code của anh Hải hướng dẫn rõ ràng là:
ActiveSheet.ExportAsFixedFormat...
Bạn lại viết khác:
ActiveWorkbook.SaveAs...
Giống đếch gì đâu chứ?
---------------
Sửa thành vầy:

Sub Macro1()
  Dim wks As Worksheet
  Dim FileName As String
  Set wks = ActiveSheet
  FileName = wks.Range("A1").Value & "\" & wks.Range("A2").Value
  Worksheets.Select
  wks.ExportAsFixedFormat 0, FileName
  wks.Select
End Sub