RESOLVED!

Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long


Dim PrintData As Printer
Dim defprinterpos As Integer

For Each PrintData In Printers

If PrintData.DeviceName = Printer.DeviceName Then
sys_default_printer = Printer.DeviceName
End If

Next


REM ... DATAREPORT CODE ...
REM ... DATAREPORT CODE ...
REM ... DATAREPORT CODE ...



Dim docasna_tiskarna As String
docasna_tiskarna = "\\Tmk_print_serve\lp1"

SetDefaultPrinter docasna_tiskarna 'REM API SetDefaultPrinter

DataReport1.PrintReport

SetDefaultPrinter sys_default_printer 'REM API SetDefaultPrinter -- back sys.def.printer


rem THX ALL