Xin Code in tự động trong VBA

risa167

Thành viên mới
Tham gia ngày
31 Tháng một 2016
Bài viết
6
Được thích
0
Điểm
163
Tuổi
31
Chào mọi người.
Mọi người có thể giúp mình xin code để in một sheet tùy chọn trong một file mà không cần mở file đó không.
VD: Mình có File 1. Sau khi mở File 1. Mình muốn in 1 sheet A trong File 2. Mình thử ghi macro nhưng nó cứ hỏi mình có muốn save File 2 ko. Lại phải ấn thêm nút Don;t save. Mong cao thủ giúp đỡ.
 

befaint

|||||||||||||
Tham gia ngày
6 Tháng một 2011
Bài viết
8,555
Được thích
9,719
Điểm
560
Chào mọi người.
Mọi người có thể giúp mình xin code để in một sheet tùy chọn trong một file mà không cần mở file đó không.
VD: Mình có File 1. Sau khi mở File 1. Mình muốn in 1 sheet A trong File 2. Mình thử ghi macro nhưng nó cứ hỏi mình có muốn save File 2 ko. Lại phải ấn thêm nút Don;t save. Mong cao thủ giúp đỡ.
1/ Bạn có file gì thì bạn gửi lên, nêu yêu cầu cần thực hiện.
2/ Với file Excel 2007 trở lên, trong file có macro thì file đó phải được lưu ở định dạng (type) cho phép có macro:
Excel Macro-Enabled Workbook (*.xlsm)
Excel Binary Workbook (*.xlsb)
Với file Excel 2003 (*.xls) thì cho phép có macro luôn.
 

risa167

Thành viên mới
Tham gia ngày
31 Tháng một 2016
Bài viết
6
Được thích
0
Điểm
163
Tuổi
31
Cảm ơn befaint nhiều nhiều. Bạn giúp mình viết đoạn code để in 2 mặt một trang giấy được không? Mình ghi macro nó ko nhận thao tác in 2 mặt.
 

risa167

Thành viên mới
Tham gia ngày
31 Tháng một 2016
Bài viết
6
Được thích
0
Điểm
163
Tuổi
31
Máy in mình mặc định chỉ in 1 mặt. Muốn in 2 mặt phải thực hiện tùy chon "Print both of side". Mình muốn xin mã code để nó tự động thực hiện tùy chọn cho mình.
 

befaint

|||||||||||||
Tham gia ngày
6 Tháng một 2011
Bài viết
8,555
Được thích
9,719
Điểm
560
Máy in mình mặc định chỉ in 1 mặt. Muốn in 2 mặt phải thực hiện tùy chon "Print both of side". Mình muốn xin mã code để nó tự động thực hiện tùy chọn cho mình.
Bạn thiết lập ở máy in trước khi thực hiện in bằng code.
Luyện tập cho nhanh tay, nhanh mắt và nhiều thứ nhanh theo nữa bạn à.
 

risa167

Thành viên mới
Tham gia ngày
31 Tháng một 2016
Bài viết
6
Được thích
0
Điểm
163
Tuổi
31
Ý bạn chê t dốt chứ gì. Dốt t mới hỏi chứ. Vì tớ muốn thực hiện thao tác in 2 mặt chỉ với 1 nút bấm đặt ở workbook nguồn( không phải workbook chứa sheet cần in). Ai biết giúp hộ m vs.
 

befaint

|||||||||||||
Tham gia ngày
6 Tháng một 2011
Bài viết
8,555
Được thích
9,719
Điểm
560
Ý bạn chê t dốt chứ gì. Dốt t mới hỏi chứ. Vì tớ muốn thực hiện thao tác in 2 mặt chỉ với 1 nút bấm đặt ở workbook nguồn( không phải workbook chứa sheet cần in). Ai biết giúp hộ m vs.
Đôi khi, có một rồi ta lại muốn nhiều hơn.
"1 nút bấm" đó chắc tôi "bế quan luyện công phu vài năm" chắc cũng không nghĩ ra nổi +-+-+-+
Bạn có thể tham khảo code ở link sau:
http://www.mrexcel.com/forum/excel-questions/296486-visual-basic-applications-set-duplex-printing.html

Hoặc nếu dùng sendkey để thiết lập thuộc tính máy in trước khi chạy sub in thì không biết hệ điều hành, máy in của bạn ra sao. Phải thử nhiều lần...

Vậy nên, cách tôi nói ở bài #9 là hoàn toàn thực tế, không mất thời gian. Tôi còn chưa được xài cái máy in có chức năng in 2 mặt bao giờ --=0. Thứ nữa, khi bạn vào phần thiết lập thuộc tính của máy in sẽ biết thêm nhiều cái ở trong đó.

Vậy ha. Chúc bạn thành công!
 

songmai

Thành viên chính thức
Tham gia ngày
6 Tháng tám 2007
Bài viết
52
Được thích
12
Điểm
670
Chào mọi người.Mọi người có thể giúp mình xin code để in một sheet tùy chọn trong một file mà không cần mở file đó không.VD: Mình có File 1. Sau khi mở File 1. Mình muốn in 1 sheet A trong File 2. Mình thử ghi macro nhưng nó cứ hỏi mình có muốn save File 2 ko. Lại phải ấn thêm nút Don;t save. Mong cao thủ giúp đỡ.
Theo tôi biết là code VBA không có tham số in 2 mặt. Bạn cho in From:=1, To:=2 là máy in (có chức năng in 2 mặt) sẽ tự động cho in 2 mặt. Tôi dùng code này là máy in của tôi mở file "Print.xls" in 2 mặt của sheet "Out" xong đóng lại, không lỗi gì cả.
PHP:
Sub Print_Ctrl()    On Error GoTo Loi:    Workbooks.Open ("Print.xls")    Sheets("Out").PrintOut From:=1, To:=2, Copies:=1, Collate:=True    Workbooks("Print.xls").Close    Loi:    If Err.Number = 1004 Then        MsgBox "Sai ten file hoac sai duong dan!"    ElseIf Err.Number = 9 Then        MsgBox "Sai ten Sheet!"    End IfEnd Sub
 
Lần chỉnh sửa cuối:

hoangtung_neu

Thành viên mới
Tham gia ngày
28 Tháng hai 2011
Bài viết
2
Được thích
0
Điểm
363
Tuổi
27
Chào mọi người, mọi người ai biết chỉ mình với. Mình muốn xin code in tự động tất cả các tổ mà không cần làm thủ công lọc từng tổ và đặt lệnh in từng tổ.
 

File đính kèm

Top