Конференция VBStreets

**olik111** » 25.11.2004 (Чт) 3:40

Подскажите почему не работает
Private Sub CommandButton2_Click()
Application.Sheets("лист1").range("a1:cu43")Printout
Application.Sheets("лист2").range("a1:cu43")Printout

End Sub

**olik111** » 25.11.2004 (Чт) 4:03

А почему не работает, если лист скрыт

**Gloom** » 25.11.2004 (Чт) 12:03

olik111 писал(а):А почему не работает, если лист скрыт

Можно так сделать:

Код: Выделить всё: Application.ScreenUpdating = False fVisible=Sheets("лист1").Visible Sheets("лист1").Visible = True Sheets("лист1").range("a1:cu43").Printout Sheets("лист1").Visible = fVisible Application.ScreenUpdating = True

**olik111** » 01.12.2004 (Ср) 3:48

Спасибо большое, действительно помогло

Конференция VBStreets

Печать листа

Печать листа

Кто сейчас на конференции