impression

Question

salut, svp j'ai vraiment besoin d'aide, je suis encore débutante en vb et j veux une méthode très simple pour imprimer un fichier word. merci
 :blush)

MadM@tt · Answer

Pour imprimer un fichier word....
Si tu essayais de lancer word.exe avec dans la ligne de commande le nom du fichier à imprimer plus la commande qui di à word d'imprimer le fichier....

ça donnerai peut ètre :
Shell "Winword.exe C:\Test.doc XX

XX représente la commande qui dit à word d'imprimer le document mais je ne la connais pas...

dsl @ + et bon courage
MadMatt

pcpunch · Answer

Ce petit exemple utilise l'api shellExecute :


'Déclaration des API'S
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'Réduire le fichier à imprimer, ne pas l'activer
Private Const SW_SHOWMINNOACTIVE = 7

Private Sub btn_print_Click()

'On lance l'impression avec l'API ShellExecute en passant comme paramètre
'd'opération "Print" et comme handle celui de la fenêtre.

If txt_file <> "" Then r& = ShellExecute(Me.hwnd, "print", txt_file, ByVal 0&, 0&, SW_SHOWMINNOACTIVE)
'L'impression aura lieu si l'application ayant crée le fichier est capable d'imprimer
'et est inscrite dans la base de registre.
If r& = 31 Then MsgBox "Impossible d'imprimer le fichier", vbCritical, " Erreur"

End Sub


Voila ++

pcpunch · Answer

Ps : La variable Txt_File contient le chemin du fichier, mais tu peu remplacer cette variable par exemple par :

"c:\mon dossier\fichier.wps"

Ou encore ajouter au debut de la procedure
txt_file="c:\mon dossier\fichier.wps"

++

cs_rene38 · Answer

Bonjour
Problème : où est winword.exe ?
Une autre solution :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Dim Chemin As String, Fichier As String
Chemin = "G:\mes documents\word"
Fichier = Chemin & "MonFichier.doc"
ShellExecute Me.hWnd, "print", Fichier, vbNullString, Chemin, Option_d _Affichage
End Sub

Option_d_Affichage peut prendre les valeurs :
 
0 SW_HIDE 
1 SW_SHOWNORMAL 
2 SW_SHOWMINIMIZED 
3 SW_SHOWMAXIMIZED 
4 SW_SHOWNOACTIVATE 
5 SW_SHOW 
6 SW_MINIMIZE 
7 SW_SHOWMINNOACTIVE 
8 SW_SHOWNA 
9 SW_RESTORE 
10 SW_SHOWDEFAULT

cs_rene38 · Answer

...grillé sur le fil !

MadM@tt · Answer

oups j'y avais pas pensé dsl, ma méthode n'est pas pratique....

cs_teddy_bear · Answer

merci infiniment, je crois que ca m'aidera bcp. je vai l'essayer mnt
merci encore

Renfield · Answer

Il doit etre possible aussi de faire joujou avec Word.Application....

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

Impression

8 réponses

Discussions similaires