pmiroslav 16.05.2012 06:46
Predmet:Problem sa uredjivanjem Reporta

Isti report Å¡aljem na printanje u pet primjeraka i sada bih želio da u 'Page Footer' stavim jedan TextBox u kojem bi na svakom primjerku bio različiti tekst.
nešto kao: strana 1; strana 2: strana 3 itd
ali meni treba
1. EOP (Robno knjigovodstvo)
2. Skladište primatelja
3. Skladište izdavatelja
4. Predavatelj
5. Arhiva

zxz 16.05.2012 09:20
Predmet:Re: Problem sa uredjivanjem Reporta

Podesi boju i velicinu slova

PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Dim Brojac As Integer
  4. Private Sub PageFooter_Print(Cancel As Integer, PrintCount As Integer)
  5. Me.FontSize = 12
  6. Me.ForeColor = 13209
  7. Select Case Brojac
  8. Case 1
  9. Print "EOP (Robno knjigovodstvo)"
  10. Case 2
  11. Print "Skladište primatelja"
  12. Case 3
  13. Print "Skladište izdavatelja"
  14. Case 4
  15. Print "Predavatelj"
  16. Case 5
  17. Print "Arhiva"
  18. End Select
  19. Brojac = Brojac + 1
  20. End Sub

dex 16.05.2012 09:35
Predmet:Re: Problem sa uredjivanjem Reporta

Ja takve stvari resavam tako sto napravim posebnu tabelu kome se salje report.
Onda napravim Query IDDokumenta-Kome (dobijem kombinacije BrDokumenta-kome, svaki sa svakim)

U Query iz koga Report vuce podatke dodam taj Queru i povezem IDDokumenta.

U podnozje ID dokumenta na Reportu dodam polje kome.

pmiroslav 16.05.2012 09:41
Predmet:Re: Problem sa uredjivanjem Reporta

Evo probam sad to ali mi ne radi.
Gdje da tu proceduru zapravo stavim

Ne mogu naći :
Private Sub PageFooter_Print(Cancel As Integer, PrintCount As Integer)

kod mene je
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)

End Sub
Prilozi:
Report1.jpg (Velicina datoteke:159.94 KB)

miro35 16.05.2012 09:47
Predmet:Re: Problem sa uredjivanjem Reporta

Ideš na Page foter desni klik pa onda OnPrint i tu upišeš

zxz 16.05.2012 10:01
Predmet:Re: Problem sa uredjivanjem Reporta

Mozes staviti i na Report footer na on print ali onda ovo:
Brojac=brojac+1
Prenesi na pocetak procedure odnosno ispred select case.

pmiroslav 16.05.2012 12:46
Predmet:Re: Problem sa uredjivanjem Reporta

Evo sada ovo isprobavam i potroÅ¡io sam već hrpu papira ali ne radi.
savio sam procduru:
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer)
  2. Me.fontsize = 12
  3. Me.ForeColor = 13209
  4. Brojac = Brojac + 1
  5. Select Case Brojac
  6. Case 1
  7. Print "EOP (Robno knjigovodstvo)"
  8. Case 2
  9. Print "Skladište primatelja"
  10. Case 3
  11. Print "Skladište izdavatelja"
  12. Case 4
  13. Print "Predavatelj"
  14. Case 5
  15. Print "Arhiva"
  16. End Select
  17. End Sub

Otvorio sam Raport kao PrintPrewiev poslao na printanje 5 kopija i na svim stranicama ispiše se
'Skladište primatelja' što je pod Case 2.

zatim sam na dugme za printanje dodao petlju:
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Command31_Click()
  2.  
  3. Dim kolicina As Integer
  4. Dim stDocName As String
  5. kolicina = 5
  6.         stDocName = "rptSkladisniDoc"  
  7.         For kopija = 1 To kolicina
  8.         DoCmd.OpenReport stDocName, acViewNormal
  9. Next kopija
  10. End Sub


I ovaj put na svim kopijama bude isto
EOP (Robno knjigovodstvo) Å¡to je Case 1

zxz 16.05.2012 13:27
Predmet:Re: Problem sa uredjivanjem Reporta

Option Compare Database
Option Explicit
Dim Brojac As Integer

zaboravio si vjerovatno ovo dodat na vrh modula:
Dim Brojac As Integer

Case:
Bira vrijednost brojaca.

pmiroslav 16.05.2012 13:32
Predmet:Re: Problem sa uredjivanjem Reporta

Imam i to na vrhu, nisam zaboravio, samo nisam naveo u primjeru.

PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Dim Brojac As Integer
  4.  
  5.  
  6.  
  7.  
  8. Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer)
  9. Me.fontsize = 12
  10. Me.ForeColor = 13209
  11. Brojac = Brojac + 1
  12. Select Case Brojac
  13. Case 1
  14. Print "EOP (Robno knjigovodstvo)"
  15. Case 2
  16. Print "Skladište primatelja"
  17. Case 3
  18. Print "Skladište izdavatelja"
  19. Case 4
  20. Print "Predavatelj"
  21. Case 5
  22. Print "Arhiva"
  23. End Select
  24. End Sub

zxz 16.05.2012 13:46
Predmet:Re: Problem sa uredjivanjem Reporta

E onda moras zakaciti primjer da vidim.