Mã lệnh in trong VBA

[adam_tran]

Cho tớ hỏi gọi form in mặc định của Excel thì code của nó như thế nào? Tớ record lại mà không được, nó in thì in thẳng luôn chứ không có lệnh gọi form giao diện in của Excel :wall:

 

[adam_tran]

Sử dụng Control gì để hiển thị đúng font 2 bytes

Tớ dùng TextBox khi tạo form trong VBA thì hiển thị font 2 bytes (bộ font VNI) rất khó coi, nó như tạ o ra khoả ng trắ ng như thế nà y. Có ai biết chỉ dùm cách khắc phục không, sử dụng control nào để hiển thị font VNI như màn hình soạn thảo Word vậy? :wall:

 

[Tuanktcdcn]

Bạn xác lập Textbox1.Font.Name="Times New Roman", chọn chế độ gõ Unicode

 

[adam_tran]

Bạn xác lập Textbox1.Font.Name="Times New Roman", chọn chế độ gõ Unicode

Híc, tớ tạo form nhập liệu để ra báo bểu có sẳn là font VNI, nếu sử dụng font Unicode thì khoẻ rồi. Tớ thấy textbox trong VB6 hiển thị font VNI tốt, mà sao VBA thì lại không được. File tớ lại dùng dữ liệu từ một nguồn có code là VNI, khổ thế chứ, chắc phải chuyển mã từ từ.
Mách nước cho các bạn 1 mẹo nhỏ, vì chương trình Unikey (hay một số chương trình chuyển mã văn bản khác) không chuyển mã được file Excel! Bạn làm theo cách sau:
Copy dữ liệu của Excel sang Word. Chọn font Word nhỏ và trang in cực đại (49x49) để dán dữ liệu này vào. Nó sẽ tạo ra 1 table trong Word, chuyển mã table này, sau đó copy dán ngược lại vào Excel!

 

[workman]

Copy dữ liệu của Excel sang Word. Chọn font Word nhỏ và trang in cực đại (49x49) để dán dữ liệu này vào. Nó sẽ tạo ra 1 table trong Word, chuyển mã table này, sau đó copy dán ngược lại vào Excel!

Unikey làm được mà. Bạn vào excel, copy khối bạn cần chuyển mã. Nhấn tổ hợp Ctrl+Shift+F6. Nhớ nhấn vào "chuyển mã clipboard". Quay về Excel, nhấn Ctrl+V. Thế là xong.

 

[adam_tran]

Unikey làm được mà. Bạn vào excel, copy khối bạn cần chuyển mã. Nhấn tổ hợp Ctrl+Shift+F6. Nhớ nhấn vào "chuyển mã clipboard". Quay về Excel, nhấn Ctrl+V. Thế là xong.

Tại sao tớ không nghỉ ra nhĩ, cứ nghỉ Unikey chuyển mã dữ liệu RTF của clipboard khi copy từ Word thôi, quên mất là dữ liệu copy từ Excel cũng lưu vào Clipboard dưới dạng scrap RTF.
Cám ơn Workman nhắc nhở.

 

[thangnm]

ở đây mọi người hay nói đến VBA, tuy mình không biết 1 tí gì về VBA, nhưng thấy VBA có vẻ như rất hiệu quả, vậy có ai thông thạo về VBA thì phổ biến kiến thức cho anh em học hỏi, (từ kiến thức vỡ lòng ý). như tạo VBA như thế nào?, VBA co lệnh nào?, cách dùng lệnh đó??.

 

[Tuanktcdcn]

Híc, tớ tạo form nhập liệu để ra báo bểu có sẳn là font VNI, nếu sử dụng font Unicode thì khoẻ rồi. Tớ thấy textbox trong VB6 hiển thị font VNI tốt, mà sao VBA thì lại không được. File tớ lại dùng dữ liệu từ một nguồn có code là VNI, khổ thế chứ, chắc phải chuyển mã từ từ.
Mách nước cho các bạn 1 mẹo nhỏ, vì chương trình Unikey (hay một số chương trình chuyển mã văn bản khác) không chuyển mã được file Excel! Bạn làm theo cách sau:
Copy dữ liệu của Excel sang Word. Chọn font Word nhỏ và trang in cực đại (49x49) để dán dữ liệu này vào. Nó sẽ tạo ra 1 table trong Word, chuyển mã table này, sau đó copy dán ngược lại vào Excel!

Ôi trời ơi! Đã làm VBA lại còn CTRL+C, CTRL+V???
Các bạn hãy dùng Convertfont3.0 của OverAC ý trong đó có hàm chuyển đổi đó.
Vào Thư viện mà download nhé.

 

[Tuanktcdcn]

Cho tớ hỏi gọi form in mặc định của Excel thì code của nó như thế nào? Tớ record lại mà không được, nó in thì in thẳng luôn chứ không có lệnh gọi form giao diện in của Excel :wall:

'====================================================
Sub ManHinhIn
Application.Dialogs(XlDialogPrinter).Show
End Sub
'====================================================
Hằng số XlDialogPrinter tôi nhớ không rõ lắm nhưng theo cơ bản Sub trên là OK,tôi đã làm lâu rồi không nhớ.
Bạn lưu ý không phải cứ "Recode Macro" là được như ý đâu.

 

[adam_tran]

Hằng số XlDialogPrinter tôi nhớ không rõ lắm nhưng theo cơ bản Sub trên là OK,tôi đã làm lâu rồi không nhớ.
Bạn lưu ý không phải cứ "Recode Macro" là được như ý đâu.

Cám ơn bạn Tuấn, hàng số xlDialogPrint, chính xác. Tớ không record thì biết mã lệnh đâu mà viết, đang mò mà. Không bái bác Duyệt béo làm sư phụ thì bái cậu làm tiểu sư huynh nhé. Đang :wall: nhiều thứ vì chẳng biết mò VBA ở đâu cho bài bản.