zxz 13.06.2011 13:49
Predmet:Re: Promjena printera sa forme

Da u pravu si.
Promijeni printer u vordu i exelu ali u cccessu ne. Pogledat cu u cemu je problem pa ti javim.

zxz 13.06.2011 14:12
Predmet:Re: Promjena printera sa forme

Interesantno sto to u access97 radi nepriosnoveno evo sad sam to primijetio.
Znaci vece verzije accessa ispade da imaju gresku jer ne vrse refresh default printera.
Pogledat cu ima li kakva naredba da to odradi.

zxz 13.06.2011 16:09
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

pmiroslav 14.06.2011 07:30
Predmet:Re: Promjena printera sa forme

Sada radi odlično.
JoÅ¡ jednom puno hvala na pomoći.