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

pmiroslav	16.05.2012 07: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

pmiroslav

16.05.2012 07: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 10:20
Predmet:Re: Problem sa uredjivanjem Reporta Podesi boju i velicinu slova PreuzmiIzvorni kôd (Visual Basic): Option Compare Database Option Explicit Dim Brojac As Integer Private Sub PageFooter_Print(Cancel As Integer, PrintCount As Integer) Me.FontSize = 12 Me.ForeColor = 13209 Select Case Brojac Case 1 Print "EOP (Robno knjigovodstvo)" Case 2 Print "SkladiÅ¡te primatelja" Case 3 Print "SkladiÅ¡te izdavatelja" Case 4 Print "Predavatelj" Case 5 Print "Arhiva" End Select Brojac = Brojac + 1 End Sub

zxz

16.05.2012 10:20

Predmet:Re: Problem sa uredjivanjem Reporta

Podesi boju i velicinu slova

PreuzmiIzvorni kôd (Visual Basic):

Option Compare Database
Option Explicit
Dim Brojac As Integer
Private Sub PageFooter_Print(Cancel As Integer, PrintCount As Integer)
Me.FontSize = 12
Me.ForeColor = 13209
Select Case Brojac
Case 1
Print "EOP (Robno knjigovodstvo)"
Case 2
Print "SkladiÅ¡te primatelja"
Case 3
Print "SkladiÅ¡te izdavatelja"
Case 4
Print "Predavatelj"
Case 5
Print "Arhiva"
End Select
Brojac = Brojac + 1
End Sub

dex	16.05.2012 10: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.

dex

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

pmiroslav

16.05.2012 10: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 10:47
Predmet:Re: Problem sa uredjivanjem Reporta IdeÅ¡ na Page foter desni klik pa onda OnPrint i tu upiÅ¡eÅ¡

miro35

16.05.2012 10:47

Predmet:Re: Problem sa uredjivanjem Reporta

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

zxz	16.05.2012 11: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.

zxz

16.05.2012 11: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 13: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): Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer) Me.fontsize = 12 Me.ForeColor = 13209 Brojac = Brojac + 1 Select Case Brojac Case 1 Print "EOP (Robno knjigovodstvo)" Case 2 Print "SkladiÅ¡te primatelja" Case 3 Print "SkladiÅ¡te izdavatelja" Case 4 Print "Predavatelj" Case 5 Print "Arhiva" End Select 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): Private Sub Command31_Click() Dim kolicina As Integer Dim stDocName As String kolicina = 5 stDocName = "rptSkladisniDoc" For kopija = 1 To kolicina DoCmd.OpenReport stDocName, acViewNormal Next kopija End Sub I ovaj put na svim kopijama bude isto EOP (Robno knjigovodstvo) Å¡to je Case 1

pmiroslav

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

Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer)
Me.fontsize = 12
Me.ForeColor = 13209
Brojac = Brojac + 1
Select Case Brojac
Case 1
Print "EOP (Robno knjigovodstvo)"
Case 2
Print "SkladiÅ¡te primatelja"
Case 3
Print "SkladiÅ¡te izdavatelja"
Case 4
Print "Predavatelj"
Case 5
Print "Arhiva"
End Select
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):

Private Sub Command31_Click()
Dim kolicina As Integer
Dim stDocName As String
kolicina = 5
stDocName = "rptSkladisniDoc"
For kopija = 1 To kolicina
DoCmd.OpenReport stDocName, acViewNormal
Next kopija
End Sub

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

zxz	16.05.2012 14: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.

zxz

16.05.2012 14: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 14:32
Predmet:Re: Problem sa uredjivanjem Reporta Imam i to na vrhu, nisam zaboravio, samo nisam naveo u primjeru. PreuzmiIzvorni kôd (Visual Basic): Option Compare Database Option Explicit Dim Brojac As Integer Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer) Me.fontsize = 12 Me.ForeColor = 13209 Brojac = Brojac + 1 Select Case Brojac Case 1 Print "EOP (Robno knjigovodstvo)" Case 2 Print "SkladiÅ¡te primatelja" Case 3 Print "SkladiÅ¡te izdavatelja" Case 4 Print "Predavatelj" Case 5 Print "Arhiva" End Select End Sub

pmiroslav

16.05.2012 14:32

Predmet:Re: Problem sa uredjivanjem Reporta

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

PreuzmiIzvorni kôd (Visual Basic):

Option Compare Database
Option Explicit
Dim Brojac As Integer
Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer)
Me.fontsize = 12
Me.ForeColor = 13209
Brojac = Brojac + 1
Select Case Brojac
Case 1
Print "EOP (Robno knjigovodstvo)"
Case 2
Print "SkladiÅ¡te primatelja"
Case 3
Print "SkladiÅ¡te izdavatelja"
Case 4
Print "Predavatelj"
Case 5
Print "Arhiva"
End Select
End Sub