Print Dialog Box

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

Works fine for me like this:

Code:

---

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

---

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

You're Welcome