Print Dialog Box

[ande211]

Thanks for all your replys. Unfortunately, none of them are working. Is this working on your system, because it's not on my mine.

[CthulhuDragon]

Works fine for me like this:

Private Sub Form_Load()
    CMD.Flags = cdlPDPageNums
    CMD.FromPage = 1
    CMD.ToPage = 3
    CMD.Min = 1
    CMD.Max = 3
    CMD.ShowPrinter
End Sub

[ande211]

Yeah, you 're right. I had put some other things in their too. I really appreciate all your help. Thank You

[CthulhuDragon]

You're Welcome