Prikazi cijelu temu 16.05.2012 13:46
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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