Mogu jedino da predpostavim šta je. Desnim klikom na formu ti šalješ štampaču nalog da štampa formu, a ne izveštaj.
Probaj da staviš negde u meniju ikonicu štampača i pokreni štampanje izveštaja u momentu dok je izveštaj na ekranu u preview modu.

Customize > kartica Commends > kategorija File > komanda Print i odvuci je na tvoj meni.
Ako neznaš kako da napraviš svoj meni, potraži na forumu. Negde sam ostavio uputstvo.

Svi moji izveštaji rade na istom principu i malo mi je sad da ne kažem sta da ovaj nece da radi kako treba tj desni klik>print i slanje na printer vec da je potrebna gimnastika da bi se odstampalo rpt koji se formira kako treba i nalazi u sopstvenom prozoru, ne razumem.

Ako klikneš na formu Acccess će pokupiti formu i odštampati je. Trebalo bi da klikneš na otvoreni izveštaj na ekranu.
Ako neće tako, uzmi tvoj program i osiromaši ga tako da imaš jedan izveštaj koji štampaš zadovojavajuće i taj pronblematičan, te zakači kao primer. Probaćemo da nađemo grešku.

Probaj sledece:na formi sa koje pozivas izvestaj onemoguci shortcut menu bar (polje ostavi prazno), koji sluzi za stampu,a dozvoli samo na izvestaju.Pozdrav.

Da bi se odštampao izveštaj desni klik ide na prozor u kojem se on prikazuje i tada se pojavljuje meni sa opciom print i tada bi trebalo da se taj izveštaj iz prozora pošalje na štampač a on pošalje formu iz koje je preko VBA koda izveštaj pozvan i formiran.

Da kojim slucajem prilikom pozivanja izvestaja u kodu ne stoji da neko polje na formi dobija fokus posle otvaranja samog izvestaja? Hajde bar okaci kod koji otvara izvestaj.

Uradio i ovo što je kolega sloj predložio i ništa, opet isto. Na desni klik je moguće dobiti meni sa opcijama samo ako se klikne na prozor na kome se prikazuje izveštaj. Proba da se direktno pošalje na default printer (kod mene CUTEPRINT PDF) radi ali je tu mana što korisnik nema mogućnost da izabere na koji će printer da štampa, što je ozbiljna mana jer sve radi u mreži.

Evo koda vezanog za dugme preko koga se poziva izveštaj:

Private Sub Command111_Click()
On Error GoTo Err_Command111_Click

Dim stDocName As String
Dim crit, crit1, Predmet, poruka As String
Dim Predidd, BrojP, novi As String
Dim dbs As Database
Dim rst As Recordset
Dim strSQL, strsql1 As String
Dim grp As Integer
Dim nista As Variant

grp = [Forms]![Glavni meni]![referat]
poruka = "Nemozete kao nacelnik odnosno sef formirati dokument!!!" & Chr(13) & Chr(10)
poruka = poruka & "Na glavnom meniju odaberite strucnu grupu koja vam je dodeljena" & Chr(13) & Chr(10)
poruka = poruka & "i onda formirajte dokument"

If grp = 4 Or grp = 5 Then
MsgBox poruka, vbCritical
Exit Sub
End If

' pre stampe osvezi datum pregleda u bazi. Datum pregleda je dan kada je odstampan zapisnik
' azuriraj i sviceve (AG, M, E, T), zaduzi refrenta ako nije vec zaduzen

crit = "PredId=" & Me.Field48 & " AND " & "Projekti.ProdId=" & Me.Text109 & " AND Projekti.ZapId=" & Me.Text129
crit1 = "PredId=" & Me.Field48
strsql1 = "SELECT * FROM [EvPredmeta] WHERE " & crit1

nista = Zaduzi(Me.Field48, Me.Text109)

Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset(strsql1, dbOpenDynaset, dbSeeChanges, dbOptimistic)

With rst
.Edit
Select Case grp
Case 269 ' Elektro
!Elektro = True
!DatElk = Date
Case 270 ' AG
!Arhitekt = True
!DatArh = Date
Case 271 ' MViK
!Masinac = True
!DatMas = Date
Case 272 ' Tehnolog
!Tehnolog = True
!DatTeh = Date
Case 283 ' Vodovod
!Vik = True
!DatVik = Date
Case Else

End Select

If grp > 6 Then
!DatumObrade = Date
End If

.Update
End With

rst.Close

If [Forms]![Glavni meni]![OrgJed] = 2 Then
stDocName = "Zapisnik3S"
Else
stDocName = "Zapisnik3"
End If

DoCmd.OpenReport stDocName, acViewPreview, , crit ----> ovo stampa formu gde se dugme nalazi
rem DoCmd.OpenReport stDocName, acViewNormal, , crit ------> ovo radi na default printer

Me.Requery
Me.Refresh

Exit_Command111_Click:
Exit Sub

Err_Command111_Click:
MsgBox Err.Description
Resume Exit_Command111_Click

End Sub

Probaj da izostavis Me.requery ili Me.refresh.

Radi kako treba!

Kakve veze ima refresh i requery kad je to kod koji se izvršava posle poziva rpt-a?

Izbacio obe linije!

Mislim da ti Me.Requery vraća fokus na formu.

Probao sledeće:

1. izbacio obe linije ---> radi kako treba
2. vratio samo me.refresh ----> radi kako treba
3. vratio i me.requery zajedno sa me.refresh u istom redosledu kako je i u kodu datom od ranije ----> radi kako treba


U čemu je štos?

Pokušavam d shvatim šta je uzrok za buduće, ima li neko ideju?

Izvinjavam se što ne mogu da okačim ceo primer jer nije za široku javnost!

Bez obzira sto se otvara izvestaj kroz kod,kod nastavlja sa izvrsavanjem. Da si stavio umesto me.requery docmd.Quit logicno je da bi se aplikacija zatvorila,bez obzira sto se prethodno otvorio izvestaj.Znaci kod se izvrsava uvek do kraja,osim u slucaju kada negde "pukne".Drago mi je da si resio problem.Pozdrav.

Ako je to tako, onda je ovo rešenje.

U ponedeljeka isprobavam na glavnoj app a ne na modelu.

Ljudi hvala vam do neba!

Pozdrav

Dok sam pisao odgovor nisam video da si i ti pisao. Jesi li siguran da sve sljaka posle vracanja ove dve linije koda? Izadji iz aplikacije pa pokusaj ponovo da vidimo sta se desava.

Ne sljaka, proverio ponovo. Kad vratim requery, štampa formu!

Proverio ponovo sa refresh radi sve OK

Pozdrav još jednom

Čekaj,ne šljaka kada su ove dve linije ponovo vraćene,a šljaka kada nisu ili uopšte ne radi bez obzira da li su tu ili nisu ove dve linije? Pojasni.
Pišemo u isto vreme pa nam se odgovori preklapaju.Znači sada je sve ok. Ne diraj više ništa.

Da pojasnim do kraja:

izbacio sam requery a ostavio refresh i sve radi OK.

Me.Refresh obnavlja sadržaj tekućeg zapisa koji je prikazan na formi i on ne bi trebalo da utiče jer tog trenutka nije forma u fokusu ali Me.Requery obnavla celu formu i stavlje je u fokus i to sigurno predstavlja problem. Pitanje je da li ti uopšte i Refresh treba. Svaka linija koda treba da je celishodna. Copy/Paste je vrlo loš način pisanja VBA koda. To ne znači da ja to ne radim ali sigurno je lose.

DA upravo tako, refresh radi update rekorda a requery obnavlja rekordset forme koja ih prikazuje. U ovom konkretnom slučaju meni je bilo dovoljno da uradim refresh jer nemam promena, nemam novih ili obrisanih rekorda u formi koja poziva izveštaj. Ovo jeste rešenje za moj problem trenutno ali i dalje ne razumem zašto vraća fokus na formu pre nego što se zatvori prozor u kome je prikazan report.

Zato što štampač primi naređenje tek nakon završene procedure, a tebi je report poslat u preview režim, što se vidi iz koda.
Da rezimiramo: Requery se obraća formi i ne mora da čeka zatvaranje riporta kojih možeš da imaš otvorenih i više od jednog.

Čovek se uči dok je živ ako ima od koga ako nema vežba....

P.S. 100% ste u pravu za copy-paste, nekad se i ne razmišlja o tome.

Da li bi mozda rešenje bilo ako bi za izveštaj postavio Pop up Yes i Modal Yes? Mrzi me da simuliram mpajin slučaj,ali čini mi se da bi tada focus ostao na izveštaju,sve dok se ne zatvori.Šta vi mislite?

Vredi pokušati. Bilo bi lakše da imamo primer. Mada je Me.Requery vrlo precizna naredba koja dolazi iza tih postavki.

I ja tako mislim,ali opet ko zna.Ako kolega mpaja želi,neka proba pa nek javi.

Ako su baš potrebne te naredbe, Refresh i Requery, što se ne bi
izvršile pre otvaranja izveštaja, u kodu dva reda ranije. Otvaranjem
izveštaja se inače ništa ne dešava sa podacima, dakle sve bi radilo
kako je zamišljeno.

Išlo bi:
...
Me.Requery
Me.Refresh

DoCmd.OpenReport stDocName, acViewPreview, , crit ----> ovo stampa formu gde se dugme nalazi
rem DoCmd.OpenReport stDocName, acViewNormal, , crit ------> ovo radi na default printer

...

Ljudi situacija je ovakva:

vraćene i requery i refres, kao u poslatom kodu.


popUp bio postavljen na NO a Modal na YEs ---> ne radi kako treba
popUp postavljen na YES i Modal na YEs ---> ne radi kako treba

a kaže da Modal zadržava fokus ako je setovan na YES!

Zaključak je da requery pravi problem ako se ne varam ?

Zaista ne mogu da okačim primer jer razumite da nije za širu javnost, izvinite!

Znači potvrdjeno: NE MOŽE!

Potvrdjeno da ni u jednoj kombinaciji sa requery ne ide!