Printer defaulting problem

[dedo8816]

Hi all, im having difficulty with my programs printing.
Basically the program prints a small label from information the user puts into text boxes. Ive been using this now for 5 years and have fiddled with it and asked questions before with no answers to my problem, so hopefully this time will be differnt.
When i print from the program it all works perfect but if i have selected the wrong printer, it will continue to print to that one regardless of which i select. Ive tried using the printerdefault to both true and false but no difference. Is there a solution to this problem?

CommonDialog1.DialogTitle = "Label Printer"
CommonDialog1.CancelError = True
CommonDialog1.PrinterDefault = False

On Error Resume Next

CommonDialog1.ShowPrinter

If Err Then
MsgBox "Print Cancelled"
Exit Sub
End If
Printer.ScaleMode = 6
Printer.FontSize = 8
Printer.CurrentY = Printer.CurrentY + 180

Printer.Copies = CommonDialog1.Copies

frmprnprev1.PrintForm

 

[taupirho]

I found this on the web. Appears to work like a charm and I'm sure you can get the code from it that you need.

http://www.dreamincode.net/code/snippet320.htm

In order to understand recursion, you must first understand recursion.