I ja sam davno imao isti problem,ali ne mogu da se setim kako sam ga resio.Da ne koristis mozda kod sa neta(Hide AccessWindow...) za sakrivanje access-ovog prozora? Čini mi se da mi je baš on pravio probleme.
Mislim da sam se setio.Pogledaj koji ti je štampač po defaultu. Verovatno je do njega problem.Probaj da postaviš neki drugi,ili ti je greškom postavljen za default neki pdf creator ili slično.

ne koristim ali imam nesto slicno tome
default printer je HP1105 i nemam nijedan drugi
evo koda za login formu

ovako app se sastoji iz elemenata:
login - logovanje :)
main panel - biranje stavki rada kao i stampanje izvestaja

e sada kada se otvori forma1 u kojoj se unose neki podaci i kada hocu da odstampam to sto je na ekranu on mi automatski minimizira print preview ali ja hocu da mi odmah stampa ne da ide print preview

evo koda za login:


Option Compare Database

Private Sub Command5_Click()
Quit
End Sub

Private Sub Form_Load()
'Removing all access information code
'Global Const SW_HIDE = 0
'Global Const SW_SHOWNORMAL = 1
'Global Const SW_SHOWMINIMIZED = 2
'Global Const SW_SHOWMAXIMIZED = 3
'User one of the following below:
'Call Module2.fSetAccessWindow(0)
'Call Module2.fSetAccessWindow(1)
Call Module2.fSetAccessWindow(2)
'Call Module2.fSetAccessWindow(3)
End Sub

Private Sub Command4_Click()
Username.SetFocus
If Username = "1" And Password = "1" Then
MsgBox "Ulogovani ste kao korisnik", vbInformation, "Korisnik"
MsgBox "Prijatan rad", vbInformation, "Radni Panel"
DoCmd.Close
DoCmd.OpenForm "Mainpanel"
End If
End Sub

kod modula je :

Option Compare Database
Option Explicit

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "USER32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)

Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm

If Err <> 0 Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If

If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function

Ja u ovim kodovima ne vidim nigde naredbu za print. Daj kod za dugme za stampanje.

resio sam

evo i resenja

REPORT OBAVEZNO MORA BITI NA POPUP

a kod koji ide na button je :

Private Sub Command22_Click()
Dim strDocName As String
Dim strWhere As String
strDocName = "Izvestaj"
DoCmd.OpenReport strDocName, acPreview, , strWhere
DoCmd.Maximize
End Sub

mada bi voleo ako ovde moze da bude i dugme za direktnu stampu na previewu?
ili na klik da ide direktna stampa?

U prvom pitanju stoji,
a sad kazes da si resio i da. Nesto ja tu nisam dobro razumeo.Ali svejedno vazno je da radi!

Sto se tice ovog pitanja

probaj sa ovim kodom

znaci umesto Preview ide Normal.

to je to

nije ni meni jasno zasto kada sam prvi put stavio PopUp na Yes prijavljivao mi je da nema dovoljno ram memorije od 8GB????
ali evo sada radi :)
skontao sam moras iskompajlirati kod...

da ne otvaram novu temu problem imam i kada hocu recimo da mi u polju ispise 10 dana od danasnjeg datuma jel imas ideju SLOJ za to?

Ako hoces da uvek bude 10 dana od danasnjeg stavis na Default Value tog polja =Date()+10,a ako ces kroz kod onda