Макрос для запрета печати в MS Word #256419

Помогите найти или написать макрос для запрета печати в MS Word!!!

$50 .... можно в рублях...

"Подарок" готовиццо?

это второй по простоте способ давать документы на просмотр и не давать печатать...

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

Эээ!!! Ничего не понятно! В запрет на печать области ячеек в Excel, да? А если надо весь документ и в Word??? Можно так или нет?

Со справкой VBA дружишь?

Да и легко обходится, но мыслить нужно в этом направлении

И где взять справку по VBA?

F1

из вируса 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

в 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