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

pmiroslav	27.07.2011 09:07
Predmet:Problem sa kodom za printanje Napravio sam si formu za konrolu printanja dokumenta na kojoj koristim kod za izbor printera i slijedeči kod za printanje PreuzmiIzvorni kôd (vbnet): Private Sub Command57_Click() Dim stDocName As String Dim kopija As Integer Dim Kolicina As Integer Kolicina = Me.Text0 - 1 stDocName = "rptPonuda" DoCmd.OpenReport stDocName, acNormal For kopija = 1 To Kolicina DoCmd.PrintOut Next kopija End Sub Kada izaberem jednu kopiju onda je sve u redu, međutim ako upiÅ¡em viÅ¡e kopija tada mi na prvom listu bude odÅ¡tampana ponuda, a na ostalim slika forme "frmPrintaj". Molim pomoć
Prilozi: ProbaPrintanja.rar (Velicina datoteke:98.57 KB) Print.pdf (Velicina datoteke:7.78 KB) tblPonuda.pdf (Velicina datoteke:7.30 KB)

pmiroslav

27.07.2011 09:07

Predmet:Problem sa kodom za printanje

Napravio sam si formu za konrolu printanja dokumenta na kojoj koristim kod za izbor printera
i slijedeči kod za printanje

PreuzmiIzvorni kôd (vbnet):

Private Sub Command57_Click()
Dim stDocName As String
Dim kopija As Integer
Dim Kolicina As Integer
Kolicina = Me.Text0 - 1
stDocName = "rptPonuda"
DoCmd.OpenReport stDocName, acNormal
For kopija = 1 To Kolicina
DoCmd.PrintOut
Next kopija
End Sub

Kada izaberem jednu kopiju onda je sve u redu, međutim ako upiÅ¡em viÅ¡e kopija tada mi na prvom listu bude odÅ¡tampana ponuda, a na ostalim slika forme "frmPrintaj".

Molim pomoć

Prilozi:
ProbaPrintanja.rar (Velicina datoteke:98.57 KB)
Print.pdf (Velicina datoteke:7.78 KB)
tblPonuda.pdf (Velicina datoteke:7.30 KB)

zxz	27.07.2011 11:14
Predmet:Re: Problem sa kodom za printanje Probaj ovako napraviti: PreuzmiIzvorni kôd (Visual Basic): Private Sub Command57_Click() Dim stDocName As String Dim kopija As Integer Dim Kolicina As Integer Kolicina = Me.Text0 - 1 stDocName = "rptPonuda" For kopija = 1 To Kolicina DoCmd.OpenReport stDocName, acNormal Next kopija End Sub

zxz

27.07.2011 11:14

Predmet:Re: Problem sa kodom za printanje

Probaj ovako napraviti:

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Command57_Click()
Dim stDocName As String
Dim kopija As Integer
Dim Kolicina As Integer
Kolicina = Me.Text0 - 1
stDocName = "rptPonuda"
For kopija = 1 To Kolicina
DoCmd.OpenReport stDocName, acNormal
Next kopija
End Sub

pmiroslav	27.07.2011 12:18
Predmet:Re: Problem sa kodom za printanje Ovo je u redu. JoÅ¡ jednom ti puno hvala. Međutim imam joÅ¡ jedan problem sa Reportom. U Report Header nalaze mi se podaci o mojoj firmi U PonudaID Header nalaze se podaci o kupcu U Detali se nalaze stavke ponude U PonudaID Footer je suma iznosa stavki U Page Footer je potpis referenta i odgovorne osobe Sada mi je problem Å¡to, ako ima puno stavki pa mi one pređu na drugi list ja na oba lista imam Page Footer, tj potpis referenta. i onaj dio sa podacima o firmi. Kako da to uredim

pmiroslav

27.07.2011 12:18

Predmet:Re: Problem sa kodom za printanje

Ovo je u redu.
JoÅ¡ jednom ti puno hvala.

Međutim imam joÅ¡ jedan problem sa Reportom.
U Report Header nalaze mi se podaci o mojoj firmi
U PonudaID Header nalaze se podaci o kupcu
U Detali se nalaze stavke ponude
U PonudaID Footer je suma iznosa stavki
U Page Footer je potpis referenta i odgovorne osobe

Sada mi je problem Å¡to, ako ima puno stavki pa mi one pređu na drugi list ja na oba lista imam Page Footer, tj potpis referenta. i onaj dio sa podacima o firmi.

Kako da to uredim

pmiroslav	27.07.2011 12:21
Predmet:Re: Problem sa kodom za printanje Evo primjer NeÅ¡to ne mogu da dodam Attachment
Prilozi: Slike.rar (Velicina datoteke:40.88 KB)

pmiroslav

27.07.2011 12:21

Predmet:Re: Problem sa kodom za printanje

Evo primjer
NeÅ¡to ne mogu da dodam Attachment

Prilozi:
Slike.rar (Velicina datoteke:40.88 KB)

zxz	27.07.2011 12:57
Predmet:Re: Problem sa kodom za printanje A zato to ne prebacis u report footer sto zelis na kraju izvjetsaja da bude.

zxz

27.07.2011 12:57

Predmet:Re: Problem sa kodom za printanje

A zato to ne prebacis u report footer sto zelis na kraju izvjetsaja da bude.

pmiroslav	27.07.2011 14:49
Predmet:Re: Problem sa kodom za printanje I to je narvno u redu. Ali ja imam joÅ¡ malo problema. Koristim slijedeći kod za spremanje Reporta kao PDF fail i zatim slanje istog e-mailom kao Attachment: PreuzmiIzvorni kôd (vbnet): Private Sub Command7_Click() Dim strAdresa As String Dim stDocName As String SetPrt (4) 'Izbor PDF printer iz tablice Stampaci stDocName = "rptPonuda" DoCmd.OpenReport stDocName, acViewNormal ' Otvara Outlook Expres DoCmd.SendObject _ , _ , _ , _ , _ , _ , _ , _ , _ True End Sub Problem koji bih volio rijeÅ¡iti je Å¡to mi kod spremanja pdf dokumenta na disk program uvjek nudu ime "PONUDA" koje je upisano pod Caption u propertiesima Reporta. Ja bih Å¾elio da mi se uz PONUDA dobiÅ¡e i broj ponude. To sam pokuÅ¡ao riijeÅ¡itzi tako da sam na Reportu na On Open napisao Me.Caption = "Otpremnica_" & Forms!frmOtpremnica!OrderID Međutim to radi ako se Report otvori u Preview modu i onda Å¡alje na pdf, međutim kako se meni Report prije slanja u pdf ne otvara taj kod ne radi.

pmiroslav

27.07.2011 14:49

Predmet:Re: Problem sa kodom za printanje

I to je narvno u redu.

Ali ja imam joÅ¡ malo problema.
Koristim slijedeći kod za spremanje Reporta kao PDF fail i zatim slanje istog e-mailom kao Attachment:

PreuzmiIzvorni kôd (vbnet):

Private Sub Command7_Click()
Dim strAdresa As String
Dim stDocName As String
SetPrt (4) 'Izbor PDF printer iz tablice Stampaci
stDocName = "rptPonuda"
DoCmd.OpenReport stDocName, acViewNormal
' Otvara Outlook Expres
DoCmd.SendObject _
, _
, _
, _
, _
, _
, _
, _
, _
True
End Sub

Problem koji bih volio rijeÅ¡iti je Å¡to mi kod spremanja pdf dokumenta na disk program uvjek nudu ime "PONUDA" koje je upisano pod Caption u propertiesima Reporta.
Ja bih Å¾elio da mi se uz PONUDA dobiÅ¡e i broj ponude. To sam pokuÅ¡ao riijeÅ¡itzi tako da sam na Reportu na On Open napisao

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

Međutim to radi ako se Report otvori u Preview modu i onda Å¡alje na pdf, međutim kako se meni Report prije slanja u pdf ne otvara taj kod ne radi.

zxz	27.07.2011 15:01
Predmet:Re: Problem sa kodom za printanje Jeli ti ovaj printer otvara dialog box gdje zapisati pdf. na kojoj putanji?

zxz

27.07.2011 15:01

Predmet:Re: Problem sa kodom za printanje

Jeli ti ovaj printer otvara dialog box gdje zapisati pdf. na kojoj putanji?

pmiroslav	27.07.2011 15:48
Predmet:Re: Problem sa kodom za printanje Tako je, otvara dijelog box i nudi ime faila kao Å¡to sam rekao

pmiroslav

27.07.2011 15:48

Predmet:Re: Problem sa kodom za printanje

Tako je, otvara dijelog box i nudi ime faila kao Å¡to sam rekao

pmiroslav	27.07.2011 15:56
Predmet:Re: Problem sa kodom za printanje Evo i slika kako to izgleda
Prilozi: Slika_1.jpg (Velicina datoteke: Bajt)

pmiroslav

27.07.2011 15:56

Predmet:Re: Problem sa kodom za printanje

Evo i slika kako to izgleda

Prilozi:
Slika_1.jpg (Velicina datoteke: Bajt)

zxz	27.07.2011 17:44
Predmet:Re: Problem sa kodom za printanje Vidis imas 2 nacina ali niti jedan nije legentan jer nemozes iscitati putanju na koju zapisujes file. naime ako bi uvijek zapisivao na istu putanju onda bi jednostavno kodom mogao promijeniti ime fajla i to bi bilo najbolje. Moguce da ostaje defaultna putanja u naredbi Chdir ili chdrive vise se nmogu sjetiti. Ukliko postoji putanja onda se moze kodom promijeniti ime filea. Drugi nacin je da otvoris izvjestaj nevidljiv na prewiev pa da upises u caption kao i prije te zapises pa onda printas. Ovo drugo je problem sto ti nece raditi u mde fileu. Trebalo bi malo eksperimentisati mozda postoji i elegantnije rjesenje.

zxz

27.07.2011 17:44

Predmet:Re: Problem sa kodom za printanje

Vidis imas 2 nacina ali niti jedan nije legentan jer nemozes iscitati putanju na koju zapisujes file.
naime ako bi uvijek zapisivao na istu putanju onda bi jednostavno kodom mogao promijeniti ime fajla i to bi bilo najbolje.
Moguce da ostaje defaultna putanja u naredbi Chdir ili chdrive vise se nmogu sjetiti.
Ukliko postoji putanja onda se moze kodom promijeniti ime filea.

Drugi nacin je da otvoris izvjestaj nevidljiv na prewiev pa da upises u caption kao i prije te zapises pa onda printas.
Ovo drugo je problem sto ti nece raditi u mde fileu.

Trebalo bi malo eksperimentisati mozda postoji i elegantnije rjesenje.