tạo nút in từ form

[thuyyeu99]

Nhờ các anh chị hướng dẫn em cách tạo nút in từ form

 

[solomon2211]

Đơn giản nhất là bạn dùng cách record marcro, sau đó bạn gán cho nút in.

Nếu không, bạn gửi file lên cùng yêu cấu, mọ người sẽ giúp bạn.

 

[thuyyeu99]

Đơn giản nhất là bạn dùng cách record marcro, sau đó bạn gán cho nút in.

Nếu không, bạn gửi file lên cùng yêu cấu, mọ người sẽ giúp bạn.

Nếu được nhờ anh chỉ em đoạn macro để thực thi lệnh in.

 

[Po_Pikachu]

Bạn nên dùng tính năng in thử trước. Rồi mới in thât sau. Để test xem còn sai sót gì không?

Private Sub CommandButton1_Click()
Sheet1.Select
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Thân.

 

[solomon2211]

Dưới đây là một đoạn in bảng tính hiện thời để bạn tham khảo

Sub Print_Click()
check = MsgBox("Ban co chac chan muon in trang nay?", vbOKCancel, "Xac nhan in")
If check = 1 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
Exit Sub
End If
End Sub