Giúp cách tạo lệnh in bằng VBA (3 người xem)

[ninhtom1]

Các anh chị sửa giúp em lệnh in bằng VBA với ạ.
Trong file đính kèm ở Sheet Thekho sửa giúp em câu lệnh để khi ấn nút IN thì sẽ in được phần dữ liệu và phần ký tên của các thành phần với. Hiện tại khi ấn nút IN thì chỉ in được phần dữ liệu thôi ạ.
Em xin cảm ơn.

 

[befaint]

Các anh chị sửa giúp em lệnh in bằng VBA với ạ.
Trong file đính kèm ở Sheet Thekho sửa giúp em câu lệnh để khi ấn nút IN thì sẽ in được phần dữ liệu và phần ký tên của các thành phần với. Hiện tại khi ấn nút IN thì chỉ in được phần dữ liệu thôi ạ.
Em xin cảm ơn.

Private Sub CommandButton1_Click()
'ActiveSheet.Range("A1:J1520").PrintOut  'in ngay
ActiveSheet.Range("A1:J1520").PrintPreview 'xem trước
End Sub

 

[ninhtom1]

Cảm ơn bác, nhưng khi em chọn mã vật tư ở ô B8 thì dữ liệu thay đổi. Liệu có in được hết không vậy? Xin lỗi vì ở nhà em không có máy in nên không thử được.

 

[befaint]

Cảm ơn bác, nhưng khi em chọn mã vật tư ở ô B8 thì dữ liệu thay đổi. Liệu có in được hết không vậy? Xin lỗi vì ở nhà em không có máy in nên không thử được.

Cứ thử luôn sẽ biết, không cần cái máy in nào cả. Lệnh trên đang để xem trước (dòng xem trước đó), in ngay thì bỏ dấu nháy ở đầu dòng in ngay và xóa bỏ dòng xem trước.
Code ghi chú rõ ràng, đọc cái hiểu ngay theo nghĩa đen (nghĩa ở mặt chữ).

 

[ninhtom1]

Cảm ơn bác nhiều nhé. EM thấy rồi

 

[phuyen89]

Các anh chị sửa giúp em lệnh in bằng VBA với ạ.
Trong file đính kèm ở Sheet Thekho sửa giúp em câu lệnh để khi ấn nút IN thì sẽ in được phần dữ liệu và phần ký tên của các thành phần với. Hiện tại khi ấn nút IN thì chỉ in được phần dữ liệu thôi ạ.
Em xin cảm ơn.

Private Sub CommandButton1_Click()
    Dim rngPrt As Range
    Set rngPrt = ActiveSheet.Range("A1:J1519")
    rngPrt.PrintPreview
End Sub

Mình sửa lại đoạn code của bạn thế này, chỉ mở rộng ra vùng In thêm 1519 để nó bao trùm luôn cả phần ngày tháng và chữ ký thôi.

 

[ninhtom1]

Private Sub CommandButton1_Click()
    Dim rngPrt As Range
    Set rngPrt = ActiveSheet.Range("A1:J1519")
    rngPrt.PrintPreview
End Sub

Mình sửa lại đoạn code của bạn thế này, chỉ mở rộng ra vùng In thêm 1519 để nó bao trùm luôn cả phần ngày tháng và chữ ký thôi.

Cảm ơn bạn

 

[sunnynguyen251]

Private Sub CommandButton1_Click()
    Dim rngPrt As Range
    Set rngPrt = ActiveSheet.Range("A1:J1519")
    rngPrt.PrintPreview
End Sub

Mình sửa lại đoạn code của bạn thế này, chỉ mở rộng ra vùng In thêm 1519 để nó bao trùm luôn cả phần ngày tháng và chữ ký thôi.

cho mình hòi

Private Sub CommandButton1_Click()
'ActiveSheet.Range("A1:J1520").PrintOut  'in ngay
ActiveSheet.Range("A1:J1520").PrintPreview 'xem trước
End Sub

nếu mình muốn tạo nút in với số lượng bản in được thiết lập thì sao ạ

 

[Hoàng Tuấn 868]

nếu mình muốn tạo nút in với số lượng bản in được thiết lập thì sao ạ

Bạn chịu khó tìm trong diễn đàn, có khá nhiều bản như vậy rồi.

 

[le_vis]

Các anh chị sửa giúp em lệnh in bằng VBA với ạ.
Trong file đính kèm ở Sheet Thekho sửa giúp em câu lệnh để khi ấn nút IN thì sẽ in được phần dữ liệu và phần ký tên của các thành phần với. Hiện tại khi ấn nút IN thì chỉ in được phần dữ liệu thôi ạ.
Em xin cảm ơn.

Bạn mở Sheet cần in rồi thực hiên :
Chọn File ==> Page Setup ==> Tại khung Print area bạn chọn A1:J1520 ==> OK

 

[Hoàng Tuấn 868]

Bạn mở Sheet cần in rồi thực hiên :
Chọn File ==> Page Setup ==> Tại khung Print area bạn chọn A1:J1520 ==> OK

Chủ bài muốn thực hiện bằng vba mà bạn, hơn nữa bài này cũng cách đây gần chục năm rồi.