Navigateur internet
gotcha
-
14 juin 2000 à 13:20
guilleto Messages postés 256 Date d'inscription jeudi 23 octobre 2003 Statut Membre Dernière intervention 20 mars 2013 - 17 déc. 2004 à 11:56
guilleto Messages postés 256 Date d'inscription jeudi 23 octobre 2003 Statut Membre Dernière intervention 20 mars 2013 - 17 déc. 2004 à 11:56
2 réponses
Voici comment imprimer une page :
-créez un bouton nommé btnImprimer
-un controle webbrowser nommé webbrowser
-ajoutez un commondialog nommé dlgcommondialog
'Début
'-------------------
Private Sub btnImprimer_Click()
On Error Resume Next
Dim eQuery As OLECMDF
With dlgCommonDialog
.Flags = cdlPDReturnDC + cdlPDNoPageNums
.ShowPrinter
If Err <> MSComDlg.cdlCancel Then
eQuery = WebBrowser.QueryStatusWB(OLECMDID_PRINT)
If Err.Number = 0 Then
If eQuery And OLECMDF_ENABLED Then
WebBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, "", ""
Else
Msgbox Err.Description
End If
Else
Msgbox Err.Description
End If
End If
End With
End Sub
'-------------
'Fin
-créez un bouton nommé btnImprimer
-un controle webbrowser nommé webbrowser
-ajoutez un commondialog nommé dlgcommondialog
'Début
'-------------------
Private Sub btnImprimer_Click()
On Error Resume Next
Dim eQuery As OLECMDF
With dlgCommonDialog
.Flags = cdlPDReturnDC + cdlPDNoPageNums
.ShowPrinter
If Err <> MSComDlg.cdlCancel Then
eQuery = WebBrowser.QueryStatusWB(OLECMDID_PRINT)
If Err.Number = 0 Then
If eQuery And OLECMDF_ENABLED Then
WebBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, "", ""
Else
Msgbox Err.Description
End If
Else
Msgbox Err.Description
End If
End If
End With
End Sub
'-------------
'Fin
guilleto
Messages postés
256
Date d'inscription
jeudi 23 octobre 2003
Statut
Membre
Dernière intervention
20 mars 2013
1
17 déc. 2004 à 11:56
17 déc. 2004 à 11:56
Comment faire pour enlever les marges d'impression d'une page HTML avant impression ???
Olivier
Olivier