PDA

Просмотр полной версии : вопрос по Екселю. как сделать одну колонку не печатаемой


SeregaZ
21.09.2011, 04:09
где, в каких вкладках, пунктах меню, или еще где, можно выставить атрибут что-то типа "не печатаемая колонка". суть в чем есть колонки А, Б, С - они заполнены нужной информацией, и предположим 5 страничек. я хочу в колонке Д писать какую-то служебную информацию или пометки или еще что-то, но так, чтобы на печать вылазило те-же 5 страниц, без колонки Д. сейчас в моем случае страниц не 5, а 10 идет на печать, причем на тех 5 дополнительных страницах только эта колонка Д. бумагу только переводить зазря... если кто знает как решить подобную проблему - милости прошу отписать :)

вариант отправлять на печать через контрл+п и писать конкретно только 5 страниц - не предлагать. печатаю не думая тыркнув кнопку печати в панельке, а не через менеджер.

Guzh
21.09.2011, 10:49
Можно скрыть не нужную колонку и она не будет печататься,
можно перейти к виду "разметки страниц" и сдвинуть границу печати. Если тебе нужно видеть колонку в режиме редактирования,но чтобы она исчезала перед распечаткой, тогда напиши макрос в обработке BeforePrint

SeregaZ
22.09.2011, 16:57
эм... макросы то это конечно хорошо... однако хотелось бы практических примеров :) сможешь сделать и приложить ексель документ с подобным скрытием? у меня 2003 с возможностью открывать 2007 документы.

Guzh
22.09.2011, 18:37
Private Sub Workbook_BeforePrint(Cancel As Boolean)
n = ActiveSheet.Columns.Count
For x = 1 To ActiveSheet.Columns.Count
If Cells(1, x).Value = "метка какая-нить о том,что этот столбец и дальше не печатать" Then
n = x - 1
Exit For
End If
Next
k = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
s = ActiveSheet.Cells(1, 1).Address + ":" + ActiveSheet.Cells(k, n).Address
ActiveSheet.PageSetup.PrintArea = s
End Sub

SeregaZ
22.09.2011, 19:30
не выходит. семл семпл прикрепи!