iCentar » Racunari i oprema » Programirannje i baze podataka » Access

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)

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

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): Function CopyPDF() Dim stSource As String Dim stDest As String stSource = "D:\Ponude\Ponuda.pdf" stDest = "D:\Ponude\Ponuda_0002.pdf" FileCopy stSource, stDest 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.

pmiroslav

27.07.2011 21:14

Predmet:Re: Problem sa kodom za printanje

Napisao sam funkciju:

PreuzmiIzvorni kôd (vbnet):

Function CopyPDF()
Dim stSource As String
Dim stDest As String
stSource = "D:\Ponude\Ponuda.pdf"
stDest = "D:\Ponude\Ponuda_0002.pdf"
FileCopy stSource, stDest
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): Function CopyPDF(ID as string) Dim stSource As String Dim stDest As String stSource = "D:\Ponude\Ponuda.pdf" stDest = "D:\Ponude\Ponuda_f" & ID & ".pdf" FileCopy stSource, stDest End Function

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):

Function CopyPDF(ID as string)
Dim stSource As String
Dim stDest As String
stSource = "D:\Ponude\Ponuda.pdf"
stDest = "D:\Ponude\Ponuda_f" & ID & ".pdf"
FileCopy stSource, stDest
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): Private Sub Command7_Click() On Error GoTo Err_Command7_Click Dim strAdresa As String Dim stDocName As String Dim PonudaID As String SetPrt (6) stDocName = "rptPonuda" PonudaID = Forms!frmPonuda!PonudaID DoCmd.OpenReport stDocName, acNormal CopyPDF (PonudaID) Exit_Command7_Click: Exit Sub Err_Command7_Click: MsgBox Err.Description Resume Exit_Command7_Click 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)

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):

Private Sub Command7_Click()
On Error GoTo Err_Command7_Click
Dim strAdresa As String
Dim stDocName As String
Dim PonudaID As String
SetPrt (6)
stDocName = "rptPonuda"
PonudaID = Forms!frmPonuda!PonudaID
DoCmd.OpenReport stDocName, acNormal
CopyPDF (PonudaID)
Exit_Command7_Click:
Exit Sub
Err_Command7_Click:
MsgBox Err.Description
Resume Exit_Command7_Click
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 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.

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

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