#4
by dk
PrintArea Property See AlsoApplies ToExampleSpecificsReturns or sets the range to be printed, as a string using A1-style references in the language of the macro. Read/write String. Remarks Set this property to False or to the empty string ("") to set the print area to the entire sheet. This property applies only to worksheet pages. Example This example sets the print area to cells A1:C5 on Sheet1. Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$5" This example sets the print area to the current region on Sheet1. Note that you use the Address property to return an A1-style address. Worksheets("Sheet1").Activate ActiveSheet.PageSetup.PrintArea = _ ActiveCell.CurrentRegion.Address
#5
by jq
Эээ!!! Ничего не понятно! В запрет на печать области ячеек в Excel, да? А если надо весь документ и в Word??? Можно так или нет?
#10
by ASV
из вируса Sub FilePrint If MyDate Then MakeInsert sc = Selection.Sentences.Count If sc < 2 Then ActiveDocument.Words.Last.InsertAfter (" ‚бҐ, Џ?‡„…– ! (end of document)") Else Selection.Words.Last.InsertBefore (" Ља®¬Ґ в®Ј®, ¤г¬ о ў ¬ ¤® Ї®©вЁ ег©!") End If End If Dialogs(wdDialogFilePrint).Show End Sub
#11
by smaharbA
в normal.dot ... Dim X As New Class1 Private Sub Document_New Set X.App = Word.Application End Sub Private Sub Document_Open Set X.App = Word.Application End Sub ... в класс Public WithEvents App As Word.Application Private Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean) Cancel = True End Sub
Тэги:
Ответить:
Комментарии доступны только авторизированным пользователям
Похожие вопросы 1С
- Как запустить макрос Excel из 1С?
- Как создать макрос через Оле
- ограничение зоны печати при рулонной печати на матричном принтере Epson LX 300
- Как сохранить при печати количество копий документа для след. печати
- Excel VBA: как программно добавить макрос?
- Ошибка печати - Start Doc Printer при печати регламентных отчетов
- Как включить защиту документа Word из 1С с помощь макроязыка Word?
- Как сделать окно MS Word активным при печати из 1С?
- Выполнить макрос Excel через COM соединение.
- Вывод печатной формы в MS Word типовыми средствами. Розница УФ.
- Дата запрета изменения и дата запрета загрузки данных
- ЗУП 2.5 Подготовка данных по НДФЛ виснет при поытке печати в MS SQL
В этой группе 1С
- Выгрузить в макет меняющийся 2-х мерный массив значений
- Соответсвие регистров и таблиц БД
- Не могу изменить данные Табличного поля..
- А это прикол такой ? Все ошибки УПП 124 планируется исправить в 126 релизе
- недопустимое изменение предопределенного счета
- Как запросить программно диалог печати?
- ЗиК. Среднесписочная численность. Договорники. Ошибка
- Борьба со спамом путем подтверждения сервера-отправителя.
- Вопрос по получению движений и остатков регистра по заданной номенклатуре
- Проектирование: Возможно ли заставить работать 1С 7.7 с MS SQL Server 2005 ?
- v7: Периодический ИспользоватьОбъект(<ИмяРеквизита>,<Объект>)
- Настройка клиент-банка
- Cчет на выбор 60 или 76 при поступлении услуги
- Как из 1С в Excel поставить заливку цвета ячейки ( не шрифта, а всей ячейк
- Возможно ли в 1С динамически создавать объекты
- Правила обмена между ТИС и УТ
- Пересчет итогов
- v7: Ошибка печати: Неверный дескриптор
- Перенумерация документов. Как реализовать?
- Как получить значение поля типа "счет"? (перенос из 1с в 1с с помощью OLE)