Centar za edukaciju-BiH



#11 27.07.2011 17:48
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Problem sa kodom za printanje
Citiraj zxz:

naime ako bi uvijek zapisivao na istu putanju onda bi jednostavno kodom mogao promijeniti ime fajla i to bi bilo najbolje.
Ukliko postoji putanja onda se moze kodom promijeniti ime filea.
Putanja je uvjek ista jer u prozoru koji se otvori prije spremanja pdf dokumenta, postoji check box koji pita dali želim uvjek isti direktoruj za spremanje pdf dokumenta. To bi bilo recimo:
D:\Ponude

Slicice prilozenih slika:
Slika_2.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:282
Velicina datoteke:59.76 KB
Velicina slike: 546 x 389 Pikseli


Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 27.07.2011 17:51 od strane pmiroslav. ↑  ↓

#12 27.07.2011 19:07
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Problem sa kodom za printanje
Mozes ovom naredbom promijeniti ime filea.
FileCopy SourceFile, DestinationFile
Ako hoces pobrisati stari naredba je Kill
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#13 27.07.2011 20:14
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Problem sa kodom za printanje
Napisao sam funkciju:
PreuzmiIzvorni kôd (vbnet):
  1. Function CopyPDF()
  2. Dim stSource As String
  3. Dim stDest As String
  4. stSource = "D:\Ponude\Ponuda.pdf"
  5. stDest = "D:\Ponude\Ponuda_0002.pdf"
  6. FileCopy stSource, stDest
  7. End Function
i to radi. Međutim problem mi je kako da imenu "Ponuda" dodam stvarni broj ponude koja se ispisuje.

Radi se o polju "PonudaID" koja je na formi "frmPonuda" iz koje se ista Å¡alje na printanje, a isto tako i na ciljanom Reportu.
Pozdrav
↑  ↓

#14 27.07.2011 21:00
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Problem sa kodom za printanje
U Proceduri iz koje pozivas ovu napisi:
Dim PonudaId as string

PonudaID=Me.Ponudaid
CopyPDF PonudaID
PreuzmiIzvorni kôd (Visual Basic):
  1. Function CopyPDF(ID as string)
  2. Dim stSource As String
  3. Dim stDest As String
  4. stSource = "D:\Ponude\Ponuda.pdf"
  5. stDest = "D:\Ponude\Ponuda_f" & ID & ".pdf"
  6. FileCopy stSource, stDest
  7. End Function

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

#15 28.07.2011 13:35
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Problem sa kodom za printanje
Funkcija me ne sluša.
Sa forme frmPonuda dugmetom otvorim frmPrintaj gdje je opet ispod dugmeta za print napisano ovo:

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Command7_Click()
  2. On Error GoTo Err_Command7_Click
  3.    
  4. Dim strAdresa As String
  5. Dim stDocName As String
  6. Dim PonudaID As String
  7.  
  8. SetPrt (6)
  9.  
  10. stDocName = "rptPonuda"
  11. PonudaID = Forms!frmPonuda!PonudaID
  12. DoCmd.OpenReport stDocName, acNormal
  13.  
  14. CopyPDF (PonudaID)
  15. Exit_Command7_Click:
  16.     Exit Sub
  17. Err_Command7_Click:
  18.     MsgBox Err.Description
  19.     Resume Exit_Command7_Click
  20.    
  21. End Sub

Kada funkciju CopyPDF pokrenem iz Imemdiate prozora pdf fail se odkopira, ali kada pokrenem gornji kod sa forme frmPrintaj, pokaže se poruka "File Not Found"

Prilozi:
Informacije o tipu datoteke za:rar  ProbaPrintanja_2.rar
Preuzimanja:294
Velicina datoteke:123.75 KB


Pozdrav
↑  ↓

#16 28.07.2011 15:28
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Problem sa kodom za printanje
Da ne stize jer je kod brzi od hardverskog zapisa.
Ima negdje procedura koja to kontrolise, potrazit cu je
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#17 28.07.2011 20:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Problem sa kodom za printanje
Jesil probao ovaj tvoj kod:
Citat:
On Open napisao

Me.Caption = "Otpremnica_" & Forms!frmOtpremnica!OrderID

Prebaciti na on Format napr hedera ili on print. Tamo se mora pokrenuti na on open nece.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#18 29.07.2011 08:46
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Problem sa kodom za printanje
Probao sam svašta, ali radi tek ako se Report otvori u Preview modu.

Na Reporu On Open:

Me.Caption = "Otpremnica_" & Forms!frmOtpremnica!OrderID

a ispod dugmeta za printanje:

Dim strAdresa As String
Dim stDocName As String

SetPrt (3) 'doPDF printer iz tablise Stampaci

stDocName = "rptOtpremnica"

DoCmd.OpenReport stDocName, acViewPreview
DoCmd.OpenReport stDocName, acViewNormal
Pozdrav
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 11: 50 pm.