PDA

Visualizza versione completa : Stampare in VB


Totos
13-10-2003, 14.08.40
Salve a tutti raga!!!(D)
Vorrei chiedervi una piccola cortesia. Ho assegnato questo pezzo di codice ad un bottone per far stampare una maschera in ACCESS, ma ho un piccolo incoveniente. Vorrei che il mio foglio venisse impostato in maniera ORIZZONTALE, ma con questo codice il bottone fa partire direttamente la stampa senza aprire la finestra di dialogo della stampante predefinita!!!!
C' un modo per impostarlo direttamente il layaut del foglio o semplicemene aprire la finestra di dialogo della stampante?

GRAZIE A TUTTI PER L'AIUTO!!! :)

---------------------------------------------------------
Private Sub Comando118_Click()
On Error GoTo Err_Comando118_Click

Dim stDocName As String
Dim MyForm As Form

stDocName = "Catalogo"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False

Exit_Comando118_Click:
Exit Sub

Err_Comando118_Click:
MsgBox Err.Description
Resume Exit_Comando118_Click

End Sub
---------------------------------------------------------

Totos
14-10-2003, 11.28.26
(S) (S) (S)

Totos
16-10-2003, 09.14.11
(S) (S) (S) (S) (S) (S)