Cách nào chỉ định máy in bằng VBA trong LAN

[dangtuanson]

Xin chỉ giáo giùm: Tôi có 1 ứng dụng chạy viết bằng VBA với MDB chạy trên máy A (máy ở quầy bán hàng), máy này in phiếu tính tiền trực tiếp cho khách qua máy in gắn với A. Nhưng các phiếu yêu cầu chế biến món ăn do ứng dụng xuất ra cần phải in thẳng vào máy in gắn với máy tính B thuộc bộ phận chế biến cách máy A khoảng 100m. Máy A và B cài trong mạng ngang hàng. (Yêu cầu không dùng chức năng sẵn có "Setup" của Access khi PrintPreview nội dung cần in trên màn hình để chọn máy in).

 

[AccountBaby]

Ðề: Cách nào chỉ định máy in bằng VBA trong LAN

ví dụ ở đây bạn có máy in A và máy in B. Bạn có thể lưu các thiêt lập, máy A in bill, máy B in order, vào file ini chẳng hạn.
máy in A se là máy in mặc định của hệ thống. khi can in bill thì vẫn ra lệnh in bình thường. Khi cần in order xuống bếp, bạn duyệt qua tập hợp máy in (Printers), để chọn máy in tương ứng với thông số đã lưu. sau đó, thiết lập máy in này là mặc định (Set Printer = ...) , rồi tiến hành lệnh in. Sau đó cần set trả lại mặc định cho máy in A.
Hi vọng bạn thành công!

 

[dangtuanson]

Ðề: Cách nào chỉ định máy in bằng VBA trong LAN

Cứ 1 lần in oder lai phải chọn máy in thì kô "tự động", như vậy kô tiện cho người dùng. Tôi cần chương trình phải tự động làm việc này để kô làm phiền người sử dụng.

 

[AccountBaby]

Ðề: Cách nào chỉ định máy in bằng VBA trong LAN

oh! đó là mình nói ý tưởng để bạn code đó chứ. bạn đọc kỹ lại đi, tất cả là do ct làm cả. quan trọng là bạn nắm được: Printers Colection là tập hợp các máy in hiện có trên máy. để thiết lập một máy in nào đó là mặc định thì dùng: Set Printer =...

- vậy việc đầu tiên là bạn tạo một form, cho khách hàng cài đặt thông số : chọn máy in nào là máy in oder, máy nào là máy in bill. khi đó bạn sẽ lưu thông tin vao một nơi nào đó( file .ini chẳn hạn).
- sau đó, ứng với event in bill, thì bạn duyệt tập Printers( for each... in Printers), để chọn máy in bill, rồi set default máy in đó...tương tự cho in order

....
For each Obj In Printers
If obj = inBill then
set printer = obj
exit for
Next
...

hi vọng là bạn thử nghiệm thành công!