Centar za edukaciju-BiH



#11 13.06.2011 13:49
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,639


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#12 13.06.2011 14:12
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,639


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#13 13.06.2011 16:09
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,639


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

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#14 14.06.2011 07:30
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Promjena printera sa forme
Sada radi odlično.
JoÅ¡ jednom puno hvala na pomoći.
Pozdrav
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +02:00. Trenutno vrijeme: 1: 06 pm.