Stampa - Stampa Access VB6

Stampe # Questa funzione crea la stampa un report presente nel DB.
Public Function PrintReport(WhichReport) As Boolean
On Error GoTo ErrHandle
'Const acPreview = 2 'Costanti definite di Access

'Const acReport = 3

Screen.MousePointer = vbHourglass
PrintReport = False
If WhichReport = "" Then
MsgBox "Internal Error: " + vbCrLf + _
"Report String not passed.", vbCritical, ProgTitle
Exit Function
End If
objAccess.DoCmd.OpenReport WhichReport ', acPreview per l'anteprima
'objAccess.DoCmd.Maximize

'objAccess.DoCmd.SelectObject acReport, WhichReport

PrintReport = True
Screen.MousePointer = vbDefault
Exit Function
ErrHandle:
MsgBox "Error #" + Str(Err.Number) + ": " + Err.Description + ".", _
vbCritical, ProgTitle
Screen.MousePointer = vbDefault
End Function



In FILES C'e' L'ALLEGATO DELLA STAMPA SENZA MODULO PER ALDO