Không printpreview được, các anh chị giúp cho

[baohan2006]

Private Sub inds_Click()
Sheets("HSBT GUI").Select
Me.Hide
ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$29"
ActiveWindow.SelectedSheets.PrintPreview
Me.Show
End Sub

Khi bấm nút inds nó hiện chế độ printpreview như các nút như in, close printpreview điều bị vô hiệu hóa

 

[NH_DK]

Private Sub inds_Click()
Sheets("HSBT GUI").Select
Me.Hide
ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$29"
ActiveWindow.SelectedSheets.PrintPreview
Me.Show
End Sub

Khi bấm nút inds nó hiện chế độ printpreview như các nút như in, close printpreview điều bị vô hiệu hóa

Bạn thử sửa lại như vầy xem sao:

Private Sub inds_Click()
Sheets("HSBT GUI").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$29"
ActiveWindow.SelectedSheets.PrintPreview
End Sub

 

[baohan2006]

cảm ơn bạn nhiều
nhân tiện cho mình hỏi luôn về lisbox trong form của excel: mình có một sheet có 10 cột, mình muốn listbox trên form đó hiện thông tin của 5 trong 10 cột trong sheet đó, nếu các cột theo thứ tự thì mình làm được, nhưng khi chỉ lấy các cột 1,3,7,8,9,10 thì bó tay
nhờ bạn chỉ giúp cho

 

[solomon2211]

cảm ơn bạn nhiều
nhân tiện cho mình hỏi luôn về lisbox trong form của excel: mình có một sheet có 10 cột, mình muốn listbox trên form đó hiện thông tin của 5 trong 10 cột trong sheet đó, nếu các cột theo thứ tự thì mình làm được, nhưng khi chỉ lấy các cột 1,3,7,8,9,10 thì bó tay
nhờ bạn chỉ giúp cho

Bạn nên đặt câu hỏi này vào một topic khác. Có như vậy cả bạn và những người khác có thể theo dõi và trả lời tốt hơn.

 

[sealand]

Thôi thì cũng nhân 1 câu tiện, tốt nhất bạn load cả 10 cột lên Listbox. Cột nào muốn ẩn thì cho ColumnWidth=0 là được. Vừa nhanh vì load mảng và có thể muốn xem cột nào cũng được kể cả khi Runtime.