pmiroslav 27.07.2011 08: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):
  1. Private Sub Command57_Click()
  2.  
  3. Dim stDocName As String
  4. Dim kopija As Integer
  5. Dim Kolicina As Integer
  6.  
  7.     Kolicina = Me.Text0 - 1
  8.     stDocName = "rptPonuda"
  9.     DoCmd.OpenReport stDocName, acNormal
  10. For kopija = 1 To Kolicina
  11.    DoCmd.PrintOut
  12. Next kopija
  13.  
  14. 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 10:14
Predmet:Re: Problem sa kodom za printanje

Probaj ovako napraviti:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command57_Click()
  2.  
  3. Dim stDocName As String
  4. Dim kopija As Integer
  5. Dim Kolicina As Integer
  6.  
  7.     Kolicina = Me.Text0 - 1
  8.     stDocName = "rptPonuda"
  9. For kopija = 1 To Kolicina
  10.     DoCmd.OpenReport stDocName, acNormal
  11. Next kopija
  12.  
  13. End Sub

pmiroslav 27.07.2011 11: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 11: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 11: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 13: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):
  1. Private Sub Command7_Click()
  2.  
  3. Dim strAdresa As String
  4. Dim stDocName As String
  5.  
  6. SetPrt (4) 'Izbor PDF printer iz tablice Stampaci
  7.    
  8.     stDocName = "rptPonuda"
  9.    
  10.     DoCmd.OpenReport stDocName, acViewNormal
  11.  
  12. ' Otvara Outlook Expres
  13.  
  14. DoCmd.SendObject _
  15.     , _
  16.     , _
  17.     , _
  18.     , _
  19.     , _
  20.     , _
  21.     , _
  22.     , _
  23.     True
  24.  
  25. 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 14: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 14: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 14:56
Predmet:Re: Problem sa kodom za printanje

Evo i slika kako to izgleda
Prilozi:
Slika_1.jpg (Velicina datoteke:152.08 KB)

zxz 27.07.2011 16: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.