Em tải File rồi, anh xem giúp em mới nhé!
Bài đã được tự động gộp:
Nhờ anh xem giúp em bài #18 ạ!
Chạy hai hoặc nhiều hơn 2 maccro cùng một lúc
- Thread starter quanglenb
- Ngày gửi
Giải nén và gởi lại file
Em tải lại ở bài #18 file đuôi.xlsm và cả file giải nén (pass:1)
Em tải file đính kèm luôn đây nữa.
Anh xem giúp em.
Cám ơn anh!
File nầy mình tải về mấy lần rồi, 1 rừng code không biết muốn làm gì?
Anh ơi, em chỉ sử dụng Form_printts để in dữ liệu theo số thứ tự ở sheet"Chung"
Anh giúp em lắp đoạn code
Mã:
Sub Anhien_dong()
Sheets("BK").Range("$E$8:$E$10").AutoFilter Field:=1, Criteria1:="H"
End Sub
Làm tá lã thử
copy lệnh
Sheets("BK").Range("$E$8:$E$10").AutoFilter Field:=1, Criteria1:="H"
dán đại vào trước tất cả các dòng lệnh
ActiveSheet.PrintOut ...
trong Private Sub Printt_Click()
khả năng đúng 50/50
Vẫn không được anh ạ?
Anh có cách nào để giúp em mà khi in bằng Form_Printts em đính kèm theo file mà các dòng trống khi không có dữ liệu tự ẩn đi không ạ?
( Giúp em theo hướng Không chỉ áp dụng với sheet (BK) mà còn với các sheet khác)
Cảm ơn anh! chúc anh buổi tối vui vẻ!
Mình không biết cách vận hành của form nên không thể chỉnh code của form được, đã hỏi bạn cách vận hành mà bạn không hồi đáp thì chỉ còn cách đoán mò thôi
Vâng, em diễn giải lại, anh xem giúp em ạ!:
Nhấn nút "Print" tại sheet cần in sau đó hiện lên giao diện Form Print
+ Tại Selected data chọn bảng dữ liệu nguồn cần lấy (bao gồm cả dòng tiêu đề trong bảng)
+ Tại Destinatinon chọn ô số thứ tự trong sheet(BK) có thể Spin dữ liệu theo số thứ tự từ sheet(Chung).
+ Sau đó hiện lên danh sách in tương ứng với số thứ tự cần in.
Nhờ anh giúp em chỉnh để khi in ẩn những dòng trống (như trong video là dòng tô nền vàng)
Mong anh giúp đỡ em!
Cảm ơn anh!
huuthang_bd
Chuyên gia GPE
- Tham gia
- 10/9/08
- Bài viết
- 8,927
- Được thích
- 11,317
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Thợ đụng
Nếu biết cách đặt vấn đề thì hầu hết chỉ dăm ba bài là giải quyết xong. Ấy thế mà có rất nhiều chủ đề lên đến mấy chục bài vẫn chưa đâu vào đâuSau 15 bài khởi động thì bài #16 bắt đầu vào đề.
Sáng ra bụng đói thì nghĩ rằng mình chỉ cần ăn cơm tấm bì. Đến chừng ăn một muỗng rồi mới biết ra thêm sườn chả.Nếu biết cách đặt vấn đề thì hầu hết chỉ dăm ba bài là giải quyết xong. Ấy thế mà có rất nhiều chủ đề lên đến mấy chục bài vẫn chưa đâu vào đâu
Gặp hàng cơm bình dân thì chả sao. Nhưng gặp hạng cao cấp thì đợi miếng sườn nướng chín, đĩa cơm đã nguội. Chỉ còn cách làm lại một đĩa khác từ đầu.
Đã làm nhiều đĩa ở nhiều tiệm rồi, nhưng đĩa nào cũng nguội lạnh
Nói được "miếng sườn" thì cũng đã là tốt. Nhiều khi người ta mang sườn ra thì lại nói: ý em là ...
chucuoi92
Thành viên lười biếng
- Tham gia
- 11/9/09
- Bài viết
- 850
- Được thích
- 488
- Giới tính
- Nam
- Nghề nghiệp
- Chăn trâu
Bạn in thử xem có đúng ý không nhé!
nhớ bỏ filter ở cột E đi.
Em cám ơn anh!
Anh cho em hỏi anh đã chỉnh sửa phần nào trong code vậy ạ? em muốn áp dụng vào sheet khác thì chỉnh đoạn nào vậy anh?
chucuoi92
Thành viên lười biếng
- Tham gia
- 11/9/09
- Bài viết
- 850
- Được thích
- 488
- Giới tính
- Nam
- Nghề nghiệp
- Chăn trâu
Gần giống như bài 26,nhưng mình làm dạng ẩn dòng chứ không phải filter (sub anA() nằm trong Userform)
và gọi sub trước mỗi câu lệnh in
For I = 2 To Page Step 2
Call anA
ActiveSheet.PrintOut , ActivePrinter:=PrintName, From:=I, To:=I, Copies:=cp, Collate:=col
Next I
Dạ! em cám ơn anh!
Anh cho em hỏi: làm thế nào để có thể khi in bằng cách trên có thể co giãn dòng để vừa với nội dung khi in ạ?
Nếu có thể anh giúp em chỉnh sửa code cách nào để có thể co giãn dòng khi in được không ạ?
cám ơn anh nhiều!
Bài viết mới nhất
- Question
- Question
- Đã giải quyết
