Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pop Up Message before printing
I have the following code that prints out different sheets.
What code should I use that will make a message pop up asking "Are you Sure you want to Print Yes/No" to prevent someone pressing the print button in error? Thanks in advance of any favourable reply. Private Sub CommandButton2_Click() Application.ScreenUpdating = False ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Dan").PrintOut Copies:=1, Collate:=True Sheets("Customer Profile").Range("newused") = 1 Sheets("Customer Profile").PrintOut Copies:=1, Collate:=True If Sheets("Customer Profile").Range("pxselect") 0 Then Sheets("Handback").PrintOut Copies:=1, Collate:=True Sheets("New").Range("cuscopynew") = "CUSTOMER COPY" Sheets("New").PrintOut Copies:=1, Collate:=True Sheets("Dan").PrintOut Copies:=1, Collate:=True Sheets("Customer Profile").PrintOut Copies:=1, Collate:=True End If Application.ScreenUpdating = True End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pop Up Message before printing
John Web wrote:
I have the following code that prints out different sheets. What code should I use that will make a message pop up asking "Are you Sure you want to Print Yes/No" to prevent someone pressing the print button in error? If (MsgBox ("Are you sure you want to print?", vbYesNo) = vbYes) Then End If Best Regards, Lars |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pop Up Message before printing
Hi,
Mahe these the first 2 lines of your code response = MsgBox("Do you really want to print?", vbOKCancel) If response = vbCancel Then Exit Sub Mike "John Web" wrote: I have the following code that prints out different sheets. What code should I use that will make a message pop up asking "Are you Sure you want to Print Yes/No" to prevent someone pressing the print button in error? Thanks in advance of any favourable reply. Private Sub CommandButton2_Click() Application.ScreenUpdating = False ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Dan").PrintOut Copies:=1, Collate:=True Sheets("Customer Profile").Range("newused") = 1 Sheets("Customer Profile").PrintOut Copies:=1, Collate:=True If Sheets("Customer Profile").Range("pxselect") 0 Then Sheets("Handback").PrintOut Copies:=1, Collate:=True Sheets("New").Range("cuscopynew") = "CUSTOMER COPY" Sheets("New").PrintOut Copies:=1, Collate:=True Sheets("Dan").PrintOut Copies:=1, Collate:=True Sheets("Customer Profile").PrintOut Copies:=1, Collate:=True End If Application.ScreenUpdating = True End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pop Up Message before printing
Private Sub CommandButton2_Click() Dim Msg, Style, Title, Response Msg = "Do you want to print?" Style = vbYesNo + vbQuestion Title = "Print" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then Application.ScreenUpdating = False ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Dan").PrintOut Copies:=1, Collate:=True Sheets("Customer Profile").Range("newused") = 1 Sheets("Customer Profile").PrintOut Copies:=1, Collate:=True If Sheets("Customer Profile").Range("pxselect") 0 Then Sheets("Handback").PrintOut Copies:=1, Collate:=True Sheets("New").Range("cuscopynew") = "CUSTOMER COPY" Sheets("New").PrintOut Copies:=1, Collate:=True Sheets("Dan").PrintOut Copies:=1, Collate:=True Sheets("Customer Profile").PrintOut Copies:=1, Collate:=True End If Application.ScreenUpdating = True Else End If End Sub "John Web" wrote: I have the following code that prints out different sheets. What code should I use that will make a message pop up asking "Are you Sure you want to Print Yes/No" to prevent someone pressing the print button in error? Thanks in advance of any favourable reply. Private Sub CommandButton2_Click() Application.ScreenUpdating = False ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Dan").PrintOut Copies:=1, Collate:=True Sheets("Customer Profile").Range("newused") = 1 Sheets("Customer Profile").PrintOut Copies:=1, Collate:=True If Sheets("Customer Profile").Range("pxselect") 0 Then Sheets("Handback").PrintOut Copies:=1, Collate:=True Sheets("New").Range("cuscopynew") = "CUSTOMER COPY" Sheets("New").PrintOut Copies:=1, Collate:=True Sheets("Dan").PrintOut Copies:=1, Collate:=True Sheets("Customer Profile").PrintOut Copies:=1, Collate:=True End If Application.ScreenUpdating = True End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Reminder message before printing | Excel Discussion (Misc queries) | |||
error message during printing | Excel Discussion (Misc queries) | |||
error message during printing | Excel Discussion (Misc queries) | |||
Printing with a message | Excel Programming | |||
Deactivating Printing Message | Excel Programming |