Thầy cho em hỏi sao em viết code
With ActiveSheet.PageSetup
.CenterHeader = "&""-,Bold""&48 61-E63 left driver" thì nó chạy ra chữ E63 left driver cỡ 48 viết đậm ở heater
Nhưng nếu em viết
Dim header As Variant
header = Sheet1.Range("A11").Text
With ActiveSheet.PageSetup
.CenterHeader = "&""Calibri,Bold""&48" & header
Thì nó lại hiện không đủ ký tự ( bị mất số 61 ) và phần hiển thị bị tràn ra cả trang luôn
Có cách nào để điều khiển phần dữ liệu hiển thị ở Header luôn hiển thị đầy đủ dữ liệu cố định ở 1 ô ( Dữ liệu bao gồm cả số và chữ ). Header được viết đậm, size chữ là 48 không ạ
????? không ai trả lời được ạ
Nếu bạn muốn cố định 1 font chữ và không thay đổi gì thì không nên đưa nó vào code (nếu bạn đặt nó trong header/footer thì chỉ cần thiết lập 1 lần là được mà).
Khi in nếu phạm vi vùng in vượt quá so với giấy in thì bạn chỉ cần viết code đặt lại chế độ Fit trang là được.
Vấn đề là dữ liệu trên header thay đổi theo tên dự án nên không thiết lập cố định được. Ngoài ra em muốn fix cỡ chữ cho Header là size 48 luôn
Mình thấy thế này:
Bạn muốn sử dụng Header làm tên dự án để khi in ra thì luôn hiển thị tên dự án tương ứng với nội dung của nó.
Nhưng việc đặt nó vào Header rất khó định dạng đúng theo ý muốn, bởi cách thức định dạng Header/footer phức tạp hơn range thông thường.
Mình thấy text size 48 ở trong ô cũng không quá lớn. Sao bạn không bố trí một vùng ô để thể hiện nội dung này (thay vì đặt nó vào header)?
Mình rất ít khi định dạng trong header nên cũng không rõ về trường hợp bạn đang làm. Nếu có dùng header thì mình thường đặt header là cố định nội dung thôi. Còn các thay đổi như tên bảng, nội dung bảng... thì sẽ dùng VBA để thay đổi tự động.