modstart.bas

来自「大量优秀的vb编程」· BAS 代码 · 共 13 行

Attribute VB_Name = "modStart"
Option Explicit

Sub main()
Dim P As New clsPrintDialog
  P.Flags = cdlPDPageNums + cdlPDDisablePrintToFile + cdlPDNoSelection
  P.Min = 1
  P.FromPage = 3
  P.ToPage = 5
  P.Max = 100
  P.ShowPrinter
End Sub