In Phiếu thu

[honghuongkt]

Tôi có 1 file phiếu thu, bây giờ tôi muốn in tất cả các phiếu thu đó thì phải làm như thế nào,không lẽ lại in bấm in từng phiếu 1, xin mọi người chỉ giúp.
Xin cảm ơn!

 

[Hong.Van]

Tôi có 1 file phiếu thu, bây giờ tôi muốn in tất cả các phiếu thu đó thì phải làm như thế nào,không lẽ lại in bấm in từng phiếu 1, xin mọi người chỉ giúp.
Xin cảm ơn!

Bạn thử tìm hiểu đề tài này
http://www.giaiphapexcel.com/forum/showthread.php?53664-In-nhiều-phiếu-thu-chi-nhập-xuất-một-lúc

 

[hieuxd]

Bạn dùng thử File Sau:
Góp ý: Sheet Du lieu (2) cột thành tiền bằng chữ nên sử dụng Hàm Đọc tiền số thành chữ. Bạn tìm kiếm trên GPE nhé

 

[honghuongkt]

Cảm ơn bạn hieuxd đã quan tâm tới vấn đề vướng mắc của mình.
Bạn cho mình hỏi luôn: Với file mình dự định in sẽ là file PHIEUTHU02, có điều số liệu có khoảng 1000 phiếu. Vì vậy sau khi nhập đầy đủ số liệu thì mình chọn "in tất cả"(theo gợi ý của bạn) thì sẽ in được tất cả phải không?( mình không biết gì về VBA).

 

[hieuxd]

Cảm ơn bạn hieuxd đã quan tâm tới vấn đề vướng mắc của mình.
Bạn cho mình hỏi luôn: Với file mình dự định in sẽ là file PHIEUTHU02, có điều số liệu có khoảng 1000 phiếu. Vì vậy sau khi nhập đầy đủ số liệu thì mình chọn "in tất cả"(theo gợi ý của bạn) thì sẽ in được tất cả phải không?( mình không biết gì về VBA).

Có thể in tất cả.
Bạn kích vào nút lệnh có chữ In Tất cả\kích chọn Sheet Dulieu (2)\Kích chọn phần tất cả vùng cần in A6:A14
nếu có 1000 phiếu thì chọn A6:A1006
Bạn Ấn ALT+F11 trên bàn phím vào cửa sổ VBA xem bên trong viết gì
Bạn có thể thay đổi một số dòng lệnh bên trong
Để xem trước khi in bạn chỉ cần thêm một dấu ' và xóa một dấu ' ở bên trong cửa sổ VBA
If Range("L1").Value <> "" Then Sheet2.PrintOut '1, 2, 2
'If Range("L1").Value <> "" Then Sheet2.PrintPreview
Thành
'If Range("L1").Value <> "" Then Sheet2.PrintOut '1, 2, 2
If Range("L1").Value <> "" Then Sheet2.PrintPreview
Bạn nên tìm hiểu thêm về VBA kẻo nhanh bị lạc hậu nhé
Mình VBA trình độ cũng mới chỉ đọc và sửa Code thôi

 

[honghuongkt]

Mình cũng muốn học VBA, xong mình không biết học ntn và bắt đầu từ đâu. Người ta nói " không thày đố mày làm lên", kiến thức thì mênh mông như rừng, như biển đấy. Mình chưa biết chữ "A" thì sao biết đến chữ "B"...làm sao mà tự nghiên cứu được cơ chứ. Làm sao để mình có thể đọc và hiểu Code VBA như hieuxd cơ chứ?

 

[honghuongkt]

Có thể in tất cả.
Bạn kích vào nút lệnh có chữ In Tất cả\kích chọn Sheet Dulieu (2)\Kích chọn phần tất cả vùng cần in A6:A14
nếu có 1000 phiếu thì chọn A6:A1006
Bạn Ấn ALT+F11 trên bàn phím vào cửa sổ VBA xem bên trong viết gì
Bạn có thể thay đổi một số dòng lệnh bên trong
Để xem trước khi in bạn chỉ cần thêm một dấu ' và xóa một dấu ' ở bên trong cửa sổ VBA
If Range("L1").Value <> "" Then Sheet2.PrintOut '1, 2, 2
'If Range("L1").Value <> "" Then Sheet2.PrintPreview
Thành
'If Range("L1").Value <> "" Then Sheet2.PrintOut '1, 2, 2
If Range("L1").Value <> "" Then Sheet2.PrintPreview
Bạn nên tìm hiểu thêm về VBA kẻo nhanh bị lạc hậu nhé
Mình VBA trình độ cũng mới chỉ đọc và sửa Code thôi

Tối nay mình in thử thấy có vấnđề này, đó là khi quét chọn vùng chọn từ A6:A9,thi chỉ in được trang 9...Nghĩa là chỉ in được trang cuối của vùng in. Bạn xem lại giúp mình.

 

[hieuxd]

Tối nay mình in thử thấy có vấnđề này, đó là khi quét chọn vùng chọn từ A6:A9,thi chỉ in được trang 9...Nghĩa là chỉ in được trang cuối của vùng in. Bạn xem lại giúp mình.

Nếu bạn vào bên trong cửa sổ VBA được thì sửa hai dòng này một chút nhe
If Range("L1").Value <> "" Then Sheet2.PrintOut '1, 2, 2
'If Range("L1").Value <> "" Then Sheet2.PrintPreview

Thay L1 bằng L4 do mình gõ lộn số 1 và số 4
=>
If Range("L4").Value <> "" Then Sheet2.PrintOut '1, 2, 2
'If Range("L4").Value <> "" Then Sheet2.PrintPreview
Nếu chưa vào được thì bạn thử File này

 

[MinhKhai]

Tôi có 1 file phiếu thu, bây giờ tôi muốn in tất cả các phiếu thu đó thì phải làm như thế nào,không lẽ lại in bấm in từng phiếu 1, xin mọi người chỉ giúp.
Xin cảm ơn!

Bạn xem thêm cách này nhé...

 

[honghuongkt]

Bạn xem thêm cách này nhé...

Cảm ơn bạn đã quan tâm tới vướng mắc của mình.
Mình in thử thấy OK!