pmiroslav 27.07.2011 18:48
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
Prilozi:
Slika_2.jpg (Velicina datoteke:59.76 KB)

zxz 27.07.2011 20:07
Predmet:Re: Problem sa kodom za printanje

Mozes ovom naredbom promijeniti ime filea.
FileCopy SourceFile, DestinationFile
Ako hoces pobrisati stari naredba je Kill

pmiroslav 27.07.2011 21:14
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.

zxz 27.07.2011 22:00
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

pmiroslav 28.07.2011 14:35
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:
ProbaPrintanja_2.rar (Velicina datoteke:123.75 KB)

zxz 28.07.2011 16:28
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

zxz 28.07.2011 21:27
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.

pmiroslav 29.07.2011 09:46
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