Xin các bác giúp đỡ về phần In ạ

[liwenzhi]

Ví dụ : e có 1 combobox hoặc 1 listbox liệt kê mã các vật tư. Giờ em muốn nhấn 1 lệnh in để máy tự động in thẻ kho lần lượt từng loại vật tư theo các mã vật tư có trong combobox hoặc listbox trên. Xin các bác hướng dẫn cho em với ạ, e loay hoay mãi mà chẳng được. Cảm ơn nhiều!

 

[phatnq2002]

Ðề: Xin các bác giúp đỡ về phần In ạ

Ví dụ : e có 1 combobox hoặc 1 listbox liệt kê mã các vật tư. Giờ em muốn nhấn 1 lệnh in để máy tự động in thẻ kho lần lượt từng loại vật tư theo các mã vật tư có trong combobox hoặc listbox trên. Xin các bác hướng dẫn cho em với ạ, e loay hoay mãi mà chẳng được. Cảm ơn nhiều!

Giả sử combo box có tên cboMAVT.
Có nút chọn, làm code Click cho nút này:

DoCmd.OPenReport "rptTHEKHO", acViewPreview, , "mavt = '" & cboMAVT & "'"

 

[liwenzhi]

Ðề: Xin các bác giúp đỡ về phần In ạ

Cảm ơn bác. Nhưng bác phat ơi, làm như bác e đã làm được rồi. Nhưng ý em muốn là nhấn In 1 lần và máy tự động in tất cả các mã vật tư có trong list của combobx đó (Ví dụ list trong combox có 5 loại vật tư : 001, 002, 003, 004, 005. Máy sẽ tự động in sổ chi tiết vật tư mã 001, xong rồi in tiếp mã vật tư 002,... đến mã 005. Mà chỉ với 1 cái click vào command "In"). Tại vì có nhiều vật tư wa (cả trăm loại lận) mà mình ngồi chọn từng cái trong combobox thì lâu quá, mà dễ bị sót và bị trùng nữa. Bác giúp em bác nhé.

 

[xuanthanh]

Ðề: Xin các bác giúp đỡ về phần In ạ

Cảm ơn bác. Nhưng bác phat ơi, làm như bác e đã làm được rồi. Nhưng ý em muốn là nhấn In 1 lần và máy tự động in tất cả các mã vật tư có trong list của combobx đó (Ví dụ list trong combox có 5 loại vật tư : 001, 002, 003, 004, 005. Máy sẽ tự động in sổ chi tiết vật tư mã 001, xong rồi in tiếp mã vật tư 002,... đến mã 005. Mà chỉ với 1 cái click vào command "In"). Tại vì có nhiều vật tư wa (cả trăm loại lận) mà mình ngồi chọn từng cái trong combobox thì lâu quá, mà dễ bị sót và bị trùng nữa. Bác giúp em bác nhé.

Ban thấy rằng cái combo của bạn phải lấy dữ liệu ở đâu? Có phải lấy tất cả các mã vật tư trong table DanhMucVatTu không? Vậy thì bạn không cần cái combo đó. Muốn in tất cả sổ chi tiết vật tư thì dùng lệnh đi hết danh sách mã vật tư có trong table DanhMucVatTu từ mã đầu tiên đến mã cuối cùng, khi nó duyệt tới đâu thì ra lệnh in cho nó. Thế thôi. Cụ thể bạn chép đoạn code này vào comandbuton tên là In nè

Private Sub In_Click()    
    Dim VT As Recordset
    Set VT = CurrentDb.OpenRecordset("DanhMucVatTu", dbOpenTable)
    If VT.RecordCount > 0 Then
        VT.MoveFirst
        Do Until VT.EOF
            DuLieu = VT.Fields(0).Value
            DoCmd.OpenReport ("The Kho"), acViewNormal, , "[MaVT] = '"DuLieu"'"
            VT.MoveNext
        Loop
    End If
End Sub

Bạn nhớ thay tên cho đúng

 

[liwenzhi]

Ðề: Xin các bác giúp đỡ về phần In ạ

Oh! Cảm ơn bác rất nhiều, e sẽ làm thử ngay

 

[quochoi_05]

Ðề: Xin các bác giúp đỡ về phần In ạ

Làm như bạn XuanThanh có vẻ không ổn. nếu số lượng vật tư cần in nhiều thì hơi phiền sẽ ngồi chờ cho máy in hết chứ không thoát ra được.

Giả sử combobox có nguồn là table DMVT(MAVT, TENVT,DVT . . .) chứa các vật tư cần in.
Report Thẻ kho có Record source là table TheKho (MAVT,NGAY,SLN,SLX,. .. )
Bạn design Report Thekho, view Record source lên và add thêm table DMVT, Join field MAVT của table DMVT với field MAVT của table Thekho
Tạo group MAVT cho report.
Report sẽ in thẻ kho tất cả các vật tư có trong table DMVT

 

[liwenzhi]

Ðề: Xin các bác giúp đỡ về phần In ạ

Làm như bạn XuanThanh có vẻ không ổn. nếu số lượng vật tư cần in nhiều thì hơi phiền sẽ ngồi chờ cho máy in hết chứ không thoát ra được.

Giả sử combobox có nguồn là table DMVT(MAVT, TENVT,DVT . . .) chứa các vật tư cần in.
Report Thẻ kho có Record source là table TheKho (MAVT,NGAY,SLN,SLX,. .. )
Bạn design Report Thekho, view Record source lên và add thêm table DMVT, Join field MAVT của table DMVT với field MAVT của table Thekho
Tạo group MAVT cho report.
Report sẽ in thẻ kho tất cả các vật tư có trong table DMVT

Bác quochoi oi, nhưng nếu làm như bác thì khi thiết kế reports, làm thế nào để mỗi lần qua Loại vật tư mới thì nó sẽ tự động nhảy qua đầu trang mới đc vậy bác. Chứ nếu ko nó in nối tiếp nhau liên tuc luôn
-----------------------------------------------------------------------------------------
Em đã làm thử tất cả 2 phương án của 02 bác XuanThanh và Quochoi. 2 phương án trên đều chạy tốt. Cảm ơn 2 bác. Riêng cách của bác quochoi thi em chỉ còn bí 1 chỗ như e nói ở trên

 

[quochoi_05]

Ðề: Xin các bác giúp đỡ về phần In ạ

Bạn design Report lên chọn MAVT header.
vào Properties -> tab Format: Force new page : After section (Sau mỗi mã VT sẽ sang trang mới).

 

[liwenzhi]

Ðề: Xin các bác giúp đỡ về phần In ạ

Cảm ơn bác rất nhiều. Từ hướng dẫn của các bác, e ngộ ra đc rất nhiều vấn đề mà trước giờ "bí".

 

[liwenzhi]

Ðề: Xin các bác giúp đỡ về phần In ạ

Xin các bác chỉ thêm cho em với. Em muốn ấn định số lượng dòng của detail (ví dụ như 10 dòng) trên từng trang in (cho dù trang đó chỉ có 1 dòng dữ liệu, 9 dòng còn lại để trống, giống như mình viết lên phiếu in săn vậy) thì có được ko các bác. Vì có tháng dữ liệu rất nhiều, có tháng thì mỗi trang chỉ có 1 dòng, nhìn rất ư là xấu. Các bác giúp e với nhé. Cảm ơn nhiều