Imprimer n'importe quel fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 458 fois - Téléchargée 42 fois

Contenu du snippet

Ce source peut imprimer n'importe quel à condition que le programme source soit installée et que la commande print soit definie dans le registre

Source / Exemple :


' APIs  + Const
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
Const SW_SHOWNORMAL = 1

' Fonction
' Filename$ est le nom du fichier
ret& = ShellExecute(hwnd, "print", FileName$, "", "", SW_SHOWNORMAL)

Conclusion :


si ret<=32, il y a une erreur

A voir également

Ajouter un commentaire

Commentaires

potain_vb
Messages postés
6
Date d'inscription
mercredi 22 juin 2005
Statut
Membre
Dernière intervention
10 juin 2009
-
Bonjour j'ai essayé cette api mais je comprend pas le but , car lorsque je lance dans mon programme ce bout de code il m'ouvre l'apercu d'image de windows ? En fait mon programme est un visualiseur de tif que j'ai développer autour de l'ocx d'imaging.
et je souhaiterai dans mes menus imprimer le tif. Quelqu'un peut il me tourner vers le bon code à utiliser ? Merci d'avance
fish13
Messages postés
2
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
11 avril 2006
-
Bravo, c'est le top. Mais cette fonction peut etre utilisée aussi à d'autre fin, par exemple:

shellexecute hwnd,"", "mailto:totot@toto.fr","","c:",sw_shownormal

(Source API GUIDE 3.7)
beeline
Messages postés
83
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
9 juin 2009
-
dark basic ne gére pas l'impression ... sa m'étonnent
vbmore
Messages postés
18
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
8 mars 2004
-
Ce serait possible de faire cette librarie, mais en ce moment j'ai un boulou fou.... Si ça peut attendre une semaine ou deux.

J'espère que Dark Basic est compatible avec ActiveX, sinon ce sera vraiment dificile.

Je te recontacterai dans une (grosse) semaine par Mail "codes-sources".

A+

VBMore

PS:Désolé pour le délai de réponse mais je suis débordé.
cs_leoneo
Messages postés
9
Date d'inscription
dimanche 16 février 2003
Statut
Membre
Dernière intervention
11 juin 2003
-
Bonjour , je programme sous un autre langage Dark Basic et j'aurai besoin d'une DLL me permettant d'imprimer du texte (en couleur , en italique , en gras ...) et d'imprimer des images (couleur) cette DLL pourrait aussi gérer l'impression . Pourriez vous me créer cette DLL , cela serrai utile à des centaines de personnes , Je vous remercie Beaucoup @+Léo

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.