Prikazi cijelu temu 13.06.2011 16:09
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Promjena printera sa forme
Evo ti nova procedura setPrt.
samo nju zamijeni i trebalo bi da radi.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function SetPrt(PrinterID As Integer) As Boolean
  2. Dim DB As Database
  3. Dim Rs As Recordset
  4. Dim SQL As String
  5. Dim NazivP As String
  6. Dim prtLoop As Printer
  7.  
  8. Set DB = CurrentDb()
  9.  
  10. SQL = "SELECT * FROM Stampaci WHERE Devices='" & PrinterID & "'"
  11. Set Rs = DB.OpenRecordset(SQL)
  12. NazivP = Rs.Fields(1)
  13.  
  14. For Each prtLoop In Application.Printers
  15.     With prtLoop
  16.        If Rs.Fields(1) = .DeviceName Then
  17.        Set Printer = prtLoop
  18.        GoTo Kraj
  19.        End If
  20.     End With
  21. Next prtLoop
  22. Kraj:
  23. Rs.Close
  24. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.