Sửa code xuất file PDF tự động

[lth1985]

Chào các bác!
Em có code này để xuất file pdf tự động nhưng lưu vào Personal.xlsb để dùng cho nhiều file khác xong thì lỗi Run Time Error 9: Subscript out of range

Sub PrintSelectionToPDF()
    Dim sPath$, Ws As Worksheet, InvoiceRng, i&, Strfile$
    Set Ws = ThisWorkbook.Sheets("DonhangXK")
    sPath = ThisWorkbook.Path & "\"
    Set InvoiceRng = Ws.Range("A1:J35")
    Application.EnableEvents = False
        Ws.Range("N1") = 1
        Strfile = ThisWorkbook.Name & ".pdf"
        InvoiceRng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & Strfile
    Application.EnableEvents = True
End Sub

Em muốn tự động xuất file PDF của file exel đang mở từ ô A1:J35. Tự động lưu vào thư mục chứa file exel đó + tên y hệt
Xin nhờ các bác sửa lỗi giúp. Em chân thành cảm ơn

 

[VetMini]

Em ko biết ở đây anh em thực sự có biết viết code hay ko mà vào comment. Code em viết rồi, đọc hoặc test là hiểu qua rồi. Code đầu đó mấy bác kia còn khẳng định lưu vào personal rồi chạy đc bình thường thì em cũng bái phục. Em cũng ko rõ về code nên mới nhờ các bác xly, xong giờ em cũng tự mò ra. Còn cái bác em báo cáo thì từ đầu cái giọng đã nói đểu rồi. Ko hiểu cùng nhóm với ban quản trị ko mà bênh kinh thế. Em xin bái bai forum này, tưởng ng giỏi viết code sẽ vào giúp, nào ngờ

Cái câu "ka-o biết người ta có biết viết code hay không, hay chỉ biết còm-men này nọ" nó áp dụng cho cả hai bên. Bạn nghĩ người ta như vậy, thì người ta cũng nghĩ bạn như vậy.

Về việc "nói đểu": bạn tự nhìn lại xem. Chính bạn mới là người mở giọng "thằng" này "thằng" nọ trước.

 

[ptm0412]

Em ko biết ở đây anh em thực sự có biết viết code hay ko mà vào comment. Code em viết rồi, đọc hoặc test là hiểu qua rồi. Code đầu đó mấy bác kia còn khẳng định lưu vào personal rồi chạy đc bình thường thì em cũng bái phục. Em cũng ko rõ về code nên mới nhờ các bác xly, xong giờ em cũng tự mò ra. Còn cái bác em báo cáo thì từ đầu cái giọng đã nói đểu rồi. Ko hiểu cùng nhóm với ban quản trị ko mà bênh kinh thế. Em xin bái bai forum này, tưởng ng giỏi viết code sẽ vào giúp, nào ngờ

Tôi không bênh ai, bạn đang chụp mũ (vu khống).
Nếu bạn trả lời "ấn cái gì" ngay từ bài 3 khi trả lời bài 2 thì đã trả lời xong, và không ai phải mất công "comment".

Ở đây em trách thằng Maika8008 thích nói đểu với ông admin bênh nó thôi.

Do bạn có thái độ này, nên tôi ban nick bạn vĩnh viễn, không chờ bạn từ biệt.

 

[ptm0412]

Sau vụ việc này tôi thấy thành viên Ban quản trị dễ bị vu khống là bênh vực thành viên này, thành viên kia. Do đó tôi đề nghị tác giả bài #5 và bài #11 chủ đề này, và một số thành viên khác hạn chế comment nhiều đối với những người:
- Không biết cách đặt câu hỏi,
- Khi được hỏi lại, không biết cách trả lời đúng câu hỏi, hoặc bắt bẻ người hỏi lại

Nếu họ không trả lời hoặc trả lời không đúng trọng tâm thì chủ đề không được giải đáp và là lỗi của họ, nếu họ cố chấp thì mỗi comment phía sau đều giống như châm dầu vào lửa và xảy ra chuyện. Cuối cùng, người xử lý như tôi bị lãnh hậu quả.

 

[VetMini]

Cứ mỗi lần có chuyện dính líu đến chuyện thành viên giận dỗi thì có khả năng BQT lại yêu cầu chiết giảm này nọ.
Sau một thời gian, mất hết thú.

Có lẽ tôi là người tội lỗi nhiều nhất. Tôi thích phê phán Tây bồi. Không biết vuốt mặt nể mũi, động chạm đến một vài người thích Tây trong BQT. Và hậu quả là gì, nhiều người đã thấy, nhưng có lẽ không biết nguyên do chính.

Việc thần khẩu hại xác phàm này cũng có một bạn bên BQT từng nhắc khéo (kindly warn) tôi qua Personal Message pm/đối thoại). Nhưng tôi nghĩ, thà chết thôi chứ nếu bỏ tật ấy thì GPE chả còn cửa gì để tôi chơi cả. Code của tôi tầm thường, kiến thức và kinh nghiệm lập trình tôi trao lại cũng chẳng có mấy người muốn hốt.

Bây giờ thì có lẽ một số người đã hiểu tại sao tôi không chính thức nhìn họ là "bạn". Tôi tránh liên luỵ đến họ.
Bạn BQT kia (tôi tránh nêu tên, chỉ cần biết là không phải người viết bài #23) có lẽ đang buồn tôi không hiểu tình cảnh mình. Nhưng nếu bạn có đọc bài này thì tôi nhắn là tôi rất chân tình cảm tấm lòng của bạn.

Cùng là đại thần triều Hán, Đông Phương Sóc chọc ghẹo vua nhưng chịu không có gì uy hiếp cái ngai của vua nên được để yên, Tư Mã Thiên có những lời can gián bị cho là lung lay địa vị vua nên lãnh án hoạn.
Nhưng Đông Phương Sóc chỉ để lại cho đời cái tên. Và được hậu thế tôn xưng sao Mộc giáng sinh, hình ảnh ông Thọ,...
Tư Mã Thiên để lại cho đời cái tên nhỏ hơn. Hậu thế chả tôn xưng sao xẹt gì cả. Nhưng cái tên Tư Mã Thiên đâu có phải do mấy lời truyền thuyết viễn vông, nó thực sự đi kèm cả một bộ sử giá trị liên thành.
Nếu bảo chọn thì tôi chọn làm Tư Mã.

 

[ptm0412]

Cứ mỗi lần có chuyện dính líu đến chuyện thành viên giận dỗi thì có khả năng BQT lại yêu cầu chiết giảm này nọ.
Sau một thời gian, mất hết thú.

Tôi chỉ đề nghị với tư cách cá nhân, trong tình trạng bức xúc vì bị quy chụp là bênh vực.

Có lẽ tôi là người tội lỗi nhiều nhất. Tôi thích phê phán Tây bồi. Không biết vuốt mặt nể mũi, động chạm đến một vài người thích Tây trong BQT.

Những bài phê phán Tây bồi của anh mang nội dung rõ ràng là phê phán từ ngữ Tây bồi, và thỉnh thoảng nhắc lại sự khác nhau giữa dùng tiêng tây bồi và tiếng Việt (hời hợt, không thành ý khi xin lỗi, cám ơn chẳng hạn). Nhưng bài #5 mà tôi nhắc trong bài 23 thì không phải như thế, bài #11 thì tỏ ý đồng tình với tác giả bài 5. Nếu bênh vực, tôi sẽ bênh vực những bài góp ý thẳng vào vấn đề chứ không bênh vực bài viết mang tính trêu chọc nhiều hơn góp ý. Chẳng qua là tôi nhìn thấy nguyên nhân đầu tiên của sự việc này mà từ chối xử lý cái "báo cáo vi phạm".

Dù sao thì tôi xin nhắc lại rằng bài 23 là ý kiến và đề nghị của cá nhân tôi trong tình trạng bức xúc. Tác giả 2 bài 5 và 11 và những người khác có thể xem như không có bài 23, tôi cám ơn.