Code xuất PDF. Nhờ giúp đỡ

[haidang3245]

Sub Xuatpdf2()
Dim PT, DL As Worksheet
Dim p As Long
Dim i As Long
Dim filepdf As Variant

Set PT = Sheets("Tong")
Set DL = Sheets("danhmuc")
p = DL.Range("B1").Value
For i = 2 To p + 1
PT.Range("Q9").Value = DL.Cells(i, 1).Value

PT.Select
filepdf = ThisWorkbook.Path & "\" & Range("AE9") & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf
Next i


End Sub

---

Nhờ các Bạn giúp. Không hiểu sao đang dùng được xuất PDF, tự nhiên cái nó không dùng được nữa.
Bị lỗi dòng: ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

 

[HUONGHCKT]

Sub Xuatpdf2()
Dim PT, DL As Worksheet
Dim p As Long
Dim i As Long
Dim filepdf As Variant

Set PT = Sheets("Tong")
Set DL = Sheets("danhmuc")
p = DL.Range("B1").Value
For i = 2 To p + 1
PT.Range("Q9").Value = DL.Cells(i, 1).Value

PT.Select
filepdf = ThisWorkbook.Path & "\" & Range("AE9") & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf
Next i


End Sub

---

Nhờ các anh giúp. Không hiểu sao đang dùng được xuất PDF, tự nhiên cái nó không dùng được nữa.
Bị lỗi dòng: ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

Thử thay dòng này
filepdf = ThisWorkbook.Path & "\" & Range("AE9") & ".pdf"

Thành
filepdf = ThisWorkbook.Path & "\" & PT.Range("AE9") & ".pdf"

 

[haidang3245]

Thử thay dòng này
filepdf = ThisWorkbook.Path & "\" & Range("AE9") & ".pdf"

Thành
filepdf = ThisWorkbook.Path & "\" & PT.Range("AE9") & ".pdf"

Vẫn không được Bạn ơi...

 

[BuiQuangThuan]

Vẫn không được Bạn ơi...

Thấy in từ số 1 đến số n. Thế nhỡ muốn in từ số không phải 1 thì làm thế nào bạn

 

[HUONGHCKT]

Vẫn không được Bạn ơi...

Bạn để chuột vào Sheet PT ấy và chạy thử xem.
Cũng có thể cái tên file pdf sẽ tạo ra đã trùng tên với 1 file pdf có từ trước rồi. Nếu vậy bạn phải có thêm dòng code để kiểm tra xem tên file pdf sẽ tạo ra có là duy nhất không.

 

[truongvu317]

Bị lỗi dòng: ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf

Bạn vào trong excel, và export bằng tay cái sheet đó xem có được ko, trên máy mình là bị lỗi khi export bằng tay.

 

[haidang3245]

Bạn vào trong excel, và export bằng tay cái sheet đó xem có được ko, trên máy mình là bị lỗi khi export bằng tay.

Ủa sao Export thủ công cũng bị lỗi luôn ta.

Bài đã được tự động gộp: 5/8/24

Bạn để chuột vào Sheet PT ấy và chạy thử xem.
Cũng có thể cái tên file pdf sẽ tạo ra đã trùng tên với 1 file pdf có từ trước rồi. Nếu vậy bạn phải có thêm dòng code để kiểm tra xem tên file pdf sẽ tạo ra có là duy nhất không.

Vẫn bị lỗi. và Export thủ công cũng bị lỗi. Bạn có code nào cho mình tham khảo với

Bài đã được tự động gộp: 5/8/24

Thấy in từ số 1 đến số n. Thế nhỡ muốn in từ số không phải 1 thì làm thế nào bạn

Code xin. Dùng tạm. Bạn có code nào tiện dùng hơn cho mình xin với

 

[ongke0711]

Code xin. Dùng tạm. Bạn có code nào tiện dùng hơn cho mình xin với

Khi Save as PDF - vào Option bỏ chọn Documents structure.. thử xem nhé.

 

[haidang3245]

Khi Save as PDF - vào Option bỏ chọn Documents structure.. thử xem nhé.

View attachment 302937 View attachment 302938

Thế thì Export thủ công được. Nhưng vấn đề chủ yếu là code của mình không chạy được á

 

[ongke0711]

Thế thì Export thủ công được. Nhưng vấn đề chủ yếu là code của mình không chạy được á

Thì tìm cách sửa cấu trúc file để khi xuất PDF nó có thể mở được trên máy khác, thiết bị khác. Bạn vô menu Review - Check Accessibility ngâm cứu nhé.

 

[haidang3245]

Thì tìm cách sửa cấu trúc file để khi xuất PDF nó có thể mở được trên máy khác, thiết bị khác. Bạn vô menu Review - Check Accessibility ngâm cứu nhé.

OK. Đã thành công. Cảm ơn Bạn nhiều nhé...

 

[ongke0711]

Thế thì Export thủ công được. Nhưng vấn đề chủ yếu là code của mình không chạy được á

Sửa đoạn code cuối như bên dưới:

filepdf = ActiveWorkbook.Path & Application.PathSeparator & Range("AE9") & ".pdf"
        ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=filepdf, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, _
            IgnorePrintAreas:=False, _
            From:=1, _
            To:=1, _
            OpenAfterPublish:=False