VBA – Kako odjednom odštampati više kopija izveštaja?

Često je potrebno da u Access aplikaciju ugradite mogućnost (uz pomoć VBA) višestrukog štampanja određenog izveštaja, i to odjednom. Na ovaj način bi trebalo da ukinemo potrebu za višestukim pozivanjem Docmd.OpenReport instrukcije.

Da bi ovo uradili, koristićemo Printout metodu, objekta Docmd. Sintaksa ove metode je sledeća:

 DoCmd.PrintOut [dijapazon][,

 stranaOd, stranaDo]

 _[, kvalitetStampe][, brKopija][,

 collate_Da_Ne]

Na primer, ukoliko želite da odštampate dve kopije, samo prve stranice nekog izveštaja, napisaćemo sledeći kod:

  DoCmd.OpenReport "rptIzvestaj",acViewPreview

  DoCmd.PrintOut acPages, 1, 1, , 2

‘ u verziji Access 2.0 ekvivalentan

‘ metod je Docmd Print

Ubacite ovaj kod u događaj OnClick nekog dugmića, i promenite naziv izveštaja, za vaš odgovarajući. Metodom OpenReport otvoriće se izveštaj u Preview modu, i odmah će se na štampu poslati prva stranica u dva primerka.

Postoji još jedna mogućnost, u kojoj nije potrebno otvarati izveštaj (Report) u Preview modu, već izvaeštaj ide odmah na štampu:

  DoCmd.SelectObject acReport,

  "rptCustomers", True

‘ Ovaj kod stampa dve kopije celog izvestaja

  DoCmd.PrintOut , , , , 2

‘ U verziji Access 2.0 ekvivalentan

‘ metod je Docmd Print

Pratite Krstaricu i preko mobilne aplikacije za Android i iPhone.