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
Pozdrav