In toàn bộ (1 người xem)

[cuonghoa176]

Tôi có vấn đề sau:
- Tại C2 là danh sách 36 bản được lấy từ name "ban" (tên bản có dấu)
C2 sẽ xuất hiện lần lượt các bản. Mỗi bản in 1 trang 1 (có nút cho lệnh in)
Tôi làm thủ công nhưng gặp lỗi font chữ:

Range("C2").Select
ActiveCell.FormulaR1C1 = "Hin L?p"
Range("B2").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("C2").Select
ActiveCell.FormulaR1C1 = "H?c"
Range("B2").Select
...
Xin nhờ GPE xử lý giúp, chân thành cảm tạ!

 

[chuot0106]

Tôi có vấn đề sau:
- Tại C2 là danh sách 36 bản được lấy từ name "ban" (tên bản có dấu)
C2 sẽ xuất hiện lần lượt các bản. Mỗi bản in 1 trang 1 (có nút cho lệnh in)
Tôi làm thủ công nhưng gặp lỗi font chữ:

Range("C2").Select
ActiveCell.FormulaR1C1 = "Hin L?p"
Range("B2").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("C2").Select
ActiveCell.FormulaR1C1 = "H?c"
Range("B2").Select
...
Xin nhờ GPE xử lý giúp, chân thành cảm tạ!

Không có File thì biết bạn bị lỗi Font chữ ở đâu? Bạn nên đưa file lên và mô tả chi tiết hơn!

 

[dhn46]

Việc xử lý các Name cũng như các thành phần khác bằng tiếng Việt trong VBA không thể đánh trực tiếp tiếng Việt bằng bàn phím được.

Việc bạn cần làm là: xem mã AscW() của các ký tự tiếng việt đó. Rồi dùng ChrW() để đổi từ AscW sang char rồi nối vào chuỗi.

Ví dụ:

Chữ "Cộng" sẽ bằng: "C" & ChrW(7897) & "ng"
trong đó 7897 lÀ AscW(ộ)

 

[cuonghoa176]

Cái này tôi chưa hiểu, các bác xem file..