In trong excel (1 người xem)

[tuwrau]

mình cần các bạn chỉ giúp -mình chuyên thu tiền của khách -nên mình chỉ cần in 1 dòng thôi-nhưng phải mất 3 động tác thì mới in được dòng đó-vì bảng thu tiền của mình có rất nhiều dòng
1-Bôi đen
2-set print Area
3- Print
các bạn chỉ cho mình cách làm 1 macro và chỉ cần bấm 1 nút là in được ngay.
xin cám ơn

 

[nvson]

Bạn Add-Ins file Print.xla
Khi muốn in bạn bôi đen vùng cần in rồi nhấn vào biểu tượng có tooltip là Print2 (cạnh nút Print Preview trên thanh Standard).

 

[Thien]

Bạn Add-Ins file Print.xla
Khi muốn in bạn bôi đen vùng cần in rồi nhấn vào biểu tượng có tooltip là Print2 (cạnh nút Print Preview trên thanh Standard).

Nhờ Anh giải giúp mình. Mình có 1 đoạn code như sau:
Sub Inphieunhapxuat()
Dim cell As Range
Sheets("InChungTu").Select
For Each cell In Range("SOCT")
If cell.Value <> "" Then
Range("H1").Value = cell.Value
ActiveWindow.SelectedSheets.PrintOut , to:=1, Copies:=1, collate:=True
End If
Next cell
End Sub

Cho phép in toàn bộ các phiếu nhập xuất trong SOCT.
(SOCT là các PN001, PN002...... & PX001, PX002.....)
Mình có ý định như sau:
+ Cho phép mình chọn in toàn bộ theo phiếu nhập trong SOCT
+ In phiếu nhập từ phiếu đến phiếu.
+ Cho phép mình chọn in toàn bộ theo phiếu xuất trong SOCT
+ In phiếu xuất từ phiếu đến phiếu.

Nhờ Anh & các sư phụ giành tý thời gian giải đáp giúp mình.

Xin đa tạ

 

[nvson]

Mình cũng đã làm dạng này rồi, tạo một form chuẩn để in, các dữ liệu ở các sheet khác nhau, khi in chỉ cần đánh mã hiệu là in được....
Bạn có thể upload file của bạn để mọi người cùng giúp đỡ.

 

[nvson]

Vì mình không biết vùng đặt tên (SOCT) của bạn như thế nào (gồm bao nhiêu cột, bao nhiêu dòng, hay chỉ toàn cột, toàn dòng...) nên file sau có lẽ cũng chưa được hoàn thiện....

 

[Thien]

Vì mình không biết vùng đặt tên (SOCT) của bạn như thế nào (gồm bao nhiêu cột, bao nhiêu dòng, hay chỉ toàn cột, toàn dòng...) nên file sau có lẽ cũng chưa được hoàn thiện....

Bạn xem giúp mình file mình up lên.
Mình đang rất cần.

Cảm ơn trước nhen.

 

[Thien]

Rất cảm ơn nvson đã giúp mình. Nhưng có 3 vấn đề nhờ bạn xem lại:
- Trong SOCT có nhiều dòng PN001 (2 dòng), PN003 (4 dòng)... làm cách nào để khi in chỉ in 1 phiếu thôi. Hiện tại trong SOCT có bao nhieu dòng của phiếu PN001 đều in ra hết.
- Muốn in từ phiếu PN001 đến PN010 hày PX005 đến PX010 chưa được thể hiện trong đoạn code của bạn.
- Không có lựa chọn in phiếu nhập hay phiếu xuất.

Hy vọng các đại ca trợ giúp tớ với. Sao tớ thấy cô đơn quá vậy nè.


PS:Bình, Cường,Adam_trần giúp tớ với.
Cảm ơn rất nhiều

 

[nvson]

Bạn thử dùng file sau xem sao.
Mình chỉ giải quyết cho bạn phần in thôi (mình không sửa lại các hàm của bạn). Nhưng mình nghĩ nhất định bạn phải đặt lại tên số chứng từ (có thể thêm hậu tố vào sau (nếu trùng). Nếu để trùng thì bản thân khi bạn đánh số chứng từ hàm Vlookup của Excel sẽ bị sai...

 

[Thien]

Bạn thử dùng file sau xem sao.
Mình chỉ giải quyết cho bạn phần in thôi (mình không sửa lại các hàm của bạn). Nhưng mình nghĩ nhất định bạn phải đặt lại tên số chứng từ (có thể thêm hậu tố vào sau (nếu trùng). Nếu để trùng thì bản thân khi bạn đánh số chứng từ hàm Vlookup của Excel sẽ bị sai...

Rất cảm ơn bạn đã tận tình giúp đỡ. Nhưng xin bạn hãy giúp mình bẫy lỗi code sau cho nó kiểm tra bên SOCT có số phiếu nhập xuất trùng nhau thì chỉ in 1 phiếu thôi.
Ví dụ:
- PX002 có 4 dòng bên sheet NhatKyNX, khi in chỉ in 1 phiếu thôi, code của bạn in cả 4 phiếu luôn.
- PN002 có 3 dòng bên sheet NhatKyNX, chỉ in 1 phiếu thôi,code này lại in luôn 3 phiếu.

Sở dĩ số phiếu trùng nhau vì khi lập phiếu nhập (xuất) đều có hoá đơn kèm theo,trên hoá đơn có bao nhiêu mặt hàng thì phải nhập bấy nhiêu dòng, nhưng số phiếu thì giống nhau để khi qua sheet InChungTu, khi chọn số phiếu nó sẽ lấy hết các dòng có số phiếu giống nhau & in trong 1 phiếu.
Mình muốn có code in của bạn là để không phải làm thủ công khi chọn PX001 rồi bấm lệnh in, lại chọn PX002 rồi in,....nếu 100 phiếu thì rất mất thời gian.

Có lẽ sau khi chỉnh lại được như trên thì file này đã hoàn chỉnh theo ý mình.
Mong bạn giành ít thời gian quý báu giúp mình.

Cảm ơn nhiều

 

[Đào Việt Cường]

Mình muốn có code in của bạn là để không phải làm thủ công khi chọn PX001 rồi bấm lệnh in, lại chọn PX002 rồi in,....nếu 100 phiếu thì rất mất thời gian.

Dear Thien,
----------
Giải thuật để giải quyết bài tập này:
- Dựa vào tuỳ chọn người dùng chọn loại phiếu (phiếu nhập hay phiếu xuất) để xác định số lượng phiếu tương ứng.
- Chạy vòng lặp For...Next với số lần lặp là số phiếu tối đa
- Mỗi bước lặp (Step) có hành động:
+ Chèn số phiếu vào ô số phiếu (như trong file của bạn là ô H1). Mỗi số phiếu tương ứng với một Step
+ Print/Preview
Mình thấy việc này không nhất thiết phải dùng User form.

 

[nvson]

.........................................

 

[Thien]

Dear nvson

Rất cảm ơn bạn đã giành thời gian giúp mình hoàn chỉnh bài toán của mình.
Hiện tại mình đã ứng dụng thành công code của bạn cho công việc in phiếu thu chi.

Hy vọng sau này có gì trở ngại, mong bạn trợ giúp mình.

Chân thành cảm ơn.


PS: Hi ! Đào Việt Cường.
Cách làm của bạn cũng được.Nhưng mình lại tích dùng from trông có vẻ hay hơn.
Dẫu sao củng cảm ơn bạn đã quan tâm giải đáp giúp mình.

Thân chào