Sửa dùm em code in phiếu (1 người xem)

[Robinhod]

Em có 1 ví dụ này nhờ anh chị sửa dùm em đoạn code em đã tạo (file đính kèm)

 

[Hai Lúa Miền Tây]

Bạn chỉnh lại chút xíu như sau:

Private Sub CommandButton1_Click()
If Me.OptionButton2 = True Then
p1 = 1: p2 = 1: p_no = 1
Sheet1.PrintOut From:=p1, To:=p2, Copies:=p_no, Collate:=True
Else
Sheet1.PrintOut
End If
Unload Me

End Sub

 

[Robinhod]

Okie! Cám ơn anh dom nhiều nhé!

 

[Robinhod]

Bạn chỉnh lại chút xíu như sau:

Anh dom ơi, với code này thì chỉ in được dữ liệu của Sheet đó thôi đúng không?
Giả sử, em muốn các Sheet khác có dữ liệu và em cũng muốn tạo 1 form in như vậy thì code của các Sheet đó phải sửa như thế nào?
Anh sửa lại code dùm em nhé!
Cám ơn anh dom nhiều!

 

[Robinhod]

Alo alo....... Anh/chị sửa dùm em với.

 

[Hai Lúa Miền Tây]

Anh dom ơi, với code này thì chỉ in được dữ liệu của Sheet đó thôi đúng không?
Giả sử, em muốn các Sheet khác có dữ liệu và em cũng muốn tạo 1 form in như vậy thì code của các Sheet đó phải sửa như thế nào?
Anh sửa lại code dùm em nhé!
Cám ơn anh dom nhiều!

Thì bạn sửa cái tên Sheet1 thành ActiveSheet là được.

 

[Robinhod]

Okie. Thế mà em cũng không nghĩ ra chứ!
Cám ơn anh dom nhiều!