Not a Member Yet,
Click here to Register
How do you like the new design?






ID: 427
Viewed: 2850
Added: Aug 19, 2002
Version:
Snippet uploaded by: snippet
Written By: Unknown
Demo: Sorry, no demo



User Rated at: 0 Stars
Rate This:

Thank you for your vote. Please wait...

It appears you already voted for this snippet

It appears your vote value was empty

A user can control *everything* (printer, paper size, orientation, print quality, etc.) from within the print setup
common dialog. In fact, here is all the code you need:

Highlight all by clicking in box
<!---Declaration--->
none

Highlight All
<!---Code--->
Sub FilePrintSetup_Click () 
Dim Msg$

On Error GoTo FilePrintSetupError

CMDialog1.Flags = PD_PRINTSETUP ' Just enable print setup
CMDialog1.Action = DLG_PRINT ' Show printer setup dialog box

PrintSetupExit:

Exit Sub

FilePrintSetupError:

If Err <> CDERR_CANCEL Then ' If user didn't select CANCEL
Beep
Msg$ = "Error" & Str$(Err) & ": " & Error$
MsgBox Msg$, MB_ICONEXCLAMATION, "Error"
End If

Resume PrintSetupExit

End Sub;


No Comments to show

Please completely fill out the form below if you want to review this snippet. All reviews are subject to validation.


Replying to a Comment...


Adding your comment. Please wait...

Thanks for adding your comment!. After further review it will be added.

There was a problem adding your comment. Please try again.

Please complete all the fields in the form before sending.

© 2002 - 2017 snippetlibrary.com All Rights Reserved. Conditions