Cách ẩn hiện 1 hàng trong sheet khi in (1 người xem)

[longdpph00858]

Mình viết được code ẩn 1 dòng khi chọn lệnh in rồi, nhưng khi tắt cửa sổ xem trước khi in thì không thể hiện lại dòng đã ẩn đó, bạn nào có sáng kiến gì cho mình với, bế tắc quá

If OptionButton22 = True Then
Application.Visible = True
Unload Me
Sheets("TMBCTC").Select
Rows("1:1").Hidden = True
ActiveWindow.SelectedSheets.PrintPreview
Sheets("QUANLY").Select
End If
End Sub

 

[thanhsangnguyen1982]

If OptionButton22 = True Then
Application.Visible = True
Unload Me
Sheets("TMBCTC").Select
Rows("1:1").Hidden = True
ActiveWindow.SelectedSheets.PrintPreview
Sheets("QUANLY").Select
End If
Rows("1:1").Hidden = False
End Sub
Thêm dòng màu đỏ vào

 

[longdpph00858]

Thêm dòng màu đỏ vào

Cảm ơn nhé, để mình thử xem