Predmet:Re: Poruka o završetku printanja, dali može?
PreuzmiIzvorni kôd (Visual Basic):Function DioP(DioN As String) As String
Dim Br As Integer
Dim DioK As String
DioN = DioN & ","
For Br = 1 To Len(DioN)
DioK = Left(DioN, Br)
If Right(DioK, 1) = "=" Then
DioP = Left(DioN, Br - 1) & "," & Right(DioN, Len(DioN) - Br)
GoTo Kraj:
End If
Next Br
Kraj:
End Function
PreuzmiIzvorni kôd (Visual Basic):Function SetPrt(NazivI As String) As Boolean
Dim Db As Database
Dim Rs As Recordset
Dim SQL As String
Dim NazivP As String
Set Db = CurrentDb()
SQL = "SELECT * FROM Izvjestaji WHERE (((Izvjestaji.IzvjN)='" & NazivI & "'));"
Set Rs = Db.OpenRecordset(SQL)
NazivP = Rs.Fields(0)
Rs.Close
SQL = "SELECT * FROM Stampaci WHERE (((Stampaci.BrST)=" & NazivP & "));"
Set Rs = Db.OpenRecordset(SQL)
NazivP = Rs.Fields(1) & "," & Rs.Fields(2) & "," & Rs.Fields(3)
SetPrt = (aht_apiWriteProfileString("Windows", _
"Device", NazivP) <> 0)
End Function
Napravi jednu tabelu sa 4 polja i daj joj ime Stampaci.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.