Predmet:Re: Data Report
Ovo stavi u novi modul DEfPrinter:
Option Explicit
Declare Function aht_apiWriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal strAppName As String, ByVal strKeyName As String, ByVal strValue As String) As Integer
PreuzmiIzvorni kôd (Visual Basic):Function SetDefPrinter(Drajver As String) As Boolean
SetDefPrinter = (aht_apiWriteProfileString("Windows", "Device", Drajver) <> 0)
End Function
Function Pozivdefprinter(ImeReporta As String)
Dim Drajver As String
Dim Vrijednost As Boolean
Drajver = ReadIniValue(App.Path & "\Setup.ini", "Printeri", ImeReporta)
Vrijednost = SetDefPrinter(Drajver)
End Function
Tvoje procedure za stampu Prepravi ovako:
Function PrintSank(SmetkaBroj As Long)
tvojkod
...
Moj kod
'*********************************************
*
Pozivdefprinter ("Sank")
'***************************************
' tvoj kod
rptNaracka_Sank.PrintReport
----------------------------------------
Function PrintKujna(SmetkaBroj As Long)
Tvoj kod
...
Moj kod
'*************************************
Pozivdefprinter ("Kujna")
'*************************************
'Tvoj kod
rptNaracka_Kujna.PrintReport
Poziv za stampu sa nekog komandnog tastera:
Call PrintSank(61)
Call PrintKujna(61)
Setup.ini:
[Printeri]
Kujna=Microsoft Office Document Image Writer
Sank=CutePDF Writer
Smetka=Microsoft Office Document Image Writer
Ovo bi trebalo da ti radi
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.