[es] - problem oko minimiziranog reporta

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: problem oko minimiziranog reporta

^{22.06.2012. u 10:34 - pre 144 meseci}

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.

Jednog dana...

Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.

+1 Profil

Re: problem oko minimiziranog reporta

^{22.06.2012. u 10:51 - pre 144 meseci}

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

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: problem oko minimiziranog reporta

^{22.06.2012. u 10:58 - pre 144 meseci}

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

Jednog dana...

Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.

+1 Profil

Re: problem oko minimiziranog reporta

^{22.06.2012. u 11:04 - pre 144 meseci}

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

Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.

+1 Profil

Re: problem oko minimiziranog reporta

^{22.06.2012. u 11:09 - pre 144 meseci}

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

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: problem oko minimiziranog reporta

^{22.06.2012. u 11:16 - pre 144 meseci}

U prvom pitanju stoji

Citat:

crnjak1: nekontam kako da mi report ne bude minimiziran
kada stavim da bude PopUp prijavi mi gresku kako nema dovoljno memorije????
jel zna neko caku

,
a sad kazes da si resio i da

Citat:

crnjak1:

REPORT OBAVEZNO MORA BITI NA POPUP

. Nesto ja tu nisam dobro razumeo.Ali svejedno vazno je da radi!

Jednog dana...

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: problem oko minimiziranog reporta

^{22.06.2012. u 11:21 - pre 144 meseci}

Sto se tice ovog pitanja

Citat:

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

probaj sa ovim kodom

Code:
DoCmd.OpenReport stDocName, acNormal

znaci umesto Preview ide Normal.

Jednog dana...

Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.

+1 Profil

Re: problem oko minimiziranog reporta

^{22.06.2012. u 11:36 - pre 144 meseci}

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?

Odgovor na temu