Prikazi cijelu temu 10.06.2011 14:38
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Promjena printera sa forme
Ovu proceduru imas samo je treba malo promijeniti jer je neko mijenjao tabelu stampaci.
Evo ti nova procedura SetPrt pa je zamijeni za svoju.
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.  
  7. Set DB = CurrentDb()
  8.  
  9.  
  10. SQL = "SELECT * FROM Stampaci WHERE Devices='" & PrinterID & "'"
  11. Set Rs = DB.OpenRecordset(SQL)
  12. NazivP = Rs.Fields(1) & "," & Rs.Fields(2) & "," & Rs.Fields(3)
  13. SetPrt = (aht_apiWriteProfileString("Windows", _
  14.     "Device", NazivP) <> 0)
  15.  
  16. End Function

Poziv za stampu:
SetPrt (1)' znaci da ce stampati printer koji se nalazi u tabeli stampaci pod brojem 1
Poslije ovoga dolazi kod
Dim NazivIzvjestaja as string

NazivIzvjestaja="NekiNaziv"
DoCmd.OpenReport NazivIzvjestaja, acViewPreview
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.