I need to automatically print datareport on non-default printer.
Mi default printer is 'Hp 1020'

Datareporty need to print to a printer \\Tmk_print_serve\lp1

When I run my code so datareport default printer and print a test text prints the correct printer. How is it possible? Why not print only on one printer?

What code should I use to datareport printed on: \\Tmk_print_serve\lp1


DataReport1.Show

Dim prt As Printer
For Each prt In Printers
If prt.DeviceName = "\\Tmk_print_serve\lp1" Then
Set Printer = prt
Exit For
End If
Next

DataReport1.PrintReport
Printer.Print "test"

Thx