Prikazi cijelu temu 03.07.2014 16:19
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Data Report
Probaj sa ovim.
Ovaj kod ti postavlja odredjeni printer na default printer..
Mozda onda ostampa.
Ako ne onda postavi cio kod.

PreuzmiIzvorni kôd (Visual Basic):
  1. Declare Function aht_apiWriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal strAppName As String, ByVal strKeyName As String, ByVal strValue As String) As Integer
  2.  
  3.  
  4. Function SetDefPrinter(Drajver As String) As Boolean
  5.  
  6.    SetDefPrinter = (aht_apiWriteProfileString("Windows", "Device", Drajver) <> 0)
  7. End Function
  8.  
  9.  
  10. Function Pozivdefprinter()
  11. Dim Drajver As String
  12. Dim Vrijednost As Boolean
  13.    Drajver = "Microsoft Office Document Image Writer,Winspool"
  14.    Vrijednost = SetDefPrinter(Drajver)
  15. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.