Xin Code in tự động trong VBA

Liên hệ QC

risa167

Thành viên mới
Tham gia
31/1/16
Bài viết
6
Được thích
0
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 đỡ.
 
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.
 
Upvote 0
Đây là File của mình. Mong mọi người giúp đỡ.
 
Upvote 0
Đây là File của mình. Mong mọi người giúp đỡ.
 

File đính kèm

  • File in mac.rar
    15 KB · Đọc: 30
Upvote 0
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.
 
Upvote 0
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.
 
Upvote 0
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 à.
 
Upvote 0
Ý 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.
 
Upvote 0
Ý 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-...l-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!
 
Upvote 0
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:
Upvote 0
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

  • giup.xlsx
    38.9 KB · Đọc: 7
Upvote 0
Web KT
Back
Top Bottom