Centar za edukaciju-BiH

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


Prosiri i skupi Opcije teme
Stranice (2):1,2

#1 16.05.2012 07:46
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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
Pozdrav
↑  ↓

#2 16.05.2012 10:20
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 16.05.2012 10:35
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


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.
↑  ↓

#4 16.05.2012 10:41
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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

Slicice prilozenih slika:
Report1.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:284
Velicina datoteke:159.94 KB
Velicina slike: 814 x 838 Pikseli

Pozdrav
↑  ↓

#5 16.05.2012 10:47
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Problem sa uredjivanjem Reporta
Ideš na Page foter desni klik pa onda OnPrint i tu upišeš
Miro
↑  ↓

#6 16.05.2012 11:01
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#7 16.05.2012 13:46
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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
Pozdrav
↑  ↓

#8 16.05.2012 14:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 16.05.2012 14:32
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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
Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 16.05.2012 14:34 od strane pmiroslav. ↑  ↓

#10 16.05.2012 14:46
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Problem sa uredjivanjem Reporta
E onda moras zakaciti primjer da vidim.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (2):1,2

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 3: 31 am.