How to Disable Printer In Word 1

[jcmv007]

I'M Using:
Word 2002 SP-1
Windows XP SP-1

I need to write code to do a specific operation in a Word document. When the file is opened I would like to prompt the user a question he or she would like to print a controled copy of the document. If the anwser is Yes then get the last copy number from the PageFooter add 1 to it and append todays date. If the anwser is NO then disable the Printer.

Here is the code to gets the info from the user:

Private Sub Document_Open()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Dim Message, InputBox_Title, Default, MyValue

'MsgBox Info
Msg = "Would you like to print Controled Copy?"    ' Define message.
Style = vbYesNo + vbInformation + vbDefaultButton2    ' Define buttons.
Title = "Copia Controlada"    ' Define title.

'InputBox Info
Message = "Enter a value"    ' Set prompt.
Title2 = "Controled Copy Value"    ' Set title.
Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then    ' User chose Yes.
    MyValue = InputBox(Message, Title, , 100, 100)
    MyValue = MyValue & "_" & Date
    
Else    ' User chose No.
    'Disable Printer
            
End If

End Sub

Here is the code for updating the footer info.:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 22/08/2003 by James McFarlane
'
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    If Selection.HeaderFooter.IsHeader = True Then
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Else
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    End If
    Selection.MoveRight Unit:=wdCell
    Selection.MoveRight Unit:=wdCell
    Selection.MoveRight Unit:=wdCell
    Selection.MoveRight Unit:=wdCell
    Selection.MoveRight Unit:=wdCell
    Selection.MoveRight Unit:=wdCell
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:=&quot;001-22/08/2003&quot;
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

 

[unica]

Hi jcmv007,

you can manipulate the standard Word functionality. I think thats the best place to put your code for what you want.

It would look something like this:

Public Sub FilePrint()
Dim iAnswer As Integer

'your code here
'.....
'.....
iAnswer = MsgBox("Would you like to print Controled Copy?", vbYesNo, "Question&quot

If iAnswer = vbYes Then
'your code here
'.....
'.....

'then show print window
Application.Dialogs(wdDialogFilePrint).Show

Else 'if answer is no

MsgBox "Printing is diabled"

End If

End Sub

Public Sub FilePrintDefault()

'call FilePrint to handle this printing option
'in the same way as when a user picks the print option from
'the standard Word menubar

Call FilePrint

End Sub

FilePrint = the standard functionality from the Word menubar
FilePrintDefault = the standard functionality from the Word iconbar

Hope this helps.

Regards,
Unica

 

[jcmv007]

unica

Thank you very much it worked GREAT!

Have a Star!


James