home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / printdlg / modstart.bas < prev    next >
Encoding:
BASIC Source File  |  1997-10-16  |  416 b   |  18 lines
  1. Attribute VB_Name = "modStart"
  2. Option Explicit
  3.  
  4. Sub main()
  5. Dim P As New clsPrintDialog
  6.   P.Flags = cdlPDPageNums + cdlPDDisablePrintToFile + cdlPDNoSelection
  7.   P.Min = 1
  8.   P.FromPage = 3
  9.   P.ToPage = 5
  10.   P.Max = 100
  11.   P.ShowPrinter
  12.   Debug.Print Printer.DeviceName
  13.   Debug.Print Printer.Copies
  14.   Debug.Print P.FromPage
  15.   Debug.Print P.ToPage
  16.   ' Write here Print Code with Printer Object...
  17. End Sub
  18.