Prikazi cijelu temu 05.07.2014 10:28
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Data Report
Ovo stavi u novi modul DEfPrinter:
Option Explicit

Declare Function aht_apiWriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal strAppName As String, ByVal strKeyName As String, ByVal strValue As String) As Integer


PreuzmiIzvorni kôd (Visual Basic):
  1. Function SetDefPrinter(Drajver As String) As Boolean
  2.  
  3.    SetDefPrinter = (aht_apiWriteProfileString("Windows", "Device", Drajver) <> 0)
  4. End Function
  5.  
  6.  
  7. Function Pozivdefprinter(ImeReporta As String)
  8. Dim Drajver As String
  9. Dim Vrijednost As Boolean
  10.  
  11.    
  12.    Drajver = ReadIniValue(App.Path & "\Setup.ini", "Printeri", ImeReporta)
  13.    Vrijednost = SetDefPrinter(Drajver)
  14. End Function

Tvoje procedure za stampu Prepravi ovako:
Function PrintSank(SmetkaBroj As Long)
tvojkod
...

Moj kod
'*********************************************
*
Pozivdefprinter ("Sank")
'***************************************
' tvoj kod
rptNaracka_Sank.PrintReport

----------------------------------------

Function PrintKujna(SmetkaBroj As Long)
Tvoj kod
...

Moj kod
'*************************************
Pozivdefprinter ("Kujna")
'*************************************
'Tvoj kod
rptNaracka_Kujna.PrintReport

Poziv za stampu sa nekog komandnog tastera:
Call PrintSank(61)
Call PrintKujna(61)

Setup.ini:
[Printeri]
Kujna=Microsoft Office Document Image Writer
Sank=CutePDF Writer
Smetka=Microsoft Office Document Image Writer

Ovo bi trebalo da ti radi
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.