Thêm tùy chọn xem trước khi in

[legiangnt]

Mình muốn thêm lệnh để có thể xem trước khi in hoặc không thì làm thế nào. Các bạn xem file của mình rồi giúp hộ nhé. Cám ơn các bạn nhiều !

 

[cadafi]

Mình muốn thêm lệnh để có thể xem trước khi in hoặc không thì làm thế nào. Các bạn xem file của mình rồi giúp hộ nhé. Cám ơn các bạn nhiều !

Bạn xử lý lúc nút In trên Form được nhấn như sau:

Private Sub CommandButton1_Click()
If Checkbox1 then
Me.ShowModal = False
ActiveWindow.SelectedSheets.PrintPreview
Else
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub

 

[legiangnt]

Bác ca_dafi ơi, em cho vào cứ báo lỗi ấy, bác xem lại giùm em với. Chờ tin bác

 

[chibi]

Thêm một cách để bạn lựa chọn

Private Sub CommandButton1_Click()
    Me.Hide
    If CheckBox1 Then ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintOut 
End Sub

 

[cadafi]

Bác ca_dafi ơi, em cho vào cứ báo lỗi ấy, bác xem lại giùm em với. Chờ tin bác

Xin lỗi bạn, do mình sơ xuất trong đoạn code này:

Private Sub CommandButton1_Click()
If Checkbox1 then
Me.ShowModal = False    <===== Sai chỗ này
ActiveWindow.SelectedSheets.PrintPreview
Else
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub

Bạn bỏ dòng Me.ShowModal=False đi. Và vào Properties của UserForm1 chỉnh lại thuộc tính ShowModal = False là được.

Hoặc bạn làm theo cách của anh Chibi là dễ hiểu nhất.