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