Comment imprimer un pdf en VB

Instructions

1. Ouvrez le Bloc-notes de Windows et coller le texte suivant dans un nouveau fichier texte:

   filename = WScript.Arguments (0)

   Set fso = CreateObject ("Scripting.FileSystemObject")

   fullPath = fso.GetAbsolutePathName (nom de fichier)

   ensemble shell = WScript.CreateObject ("Shell.Application")

   
   
   
   

   shell.Namespace (0) .ParseName (fullPath) .InvokeVerb "&Impression"

   Enregistrez le fichier texte comme "C: printPDF.vbs."

2. Ouvrez Visual Basic et créez un nouveau projet en cliquant "Fichier" et "Nouveau projet." Choisir "Windows Forms" projet.

3. Double-cliquez sur le "OpenFileDialog" le composant à l'intérieur "Boîte à outils" Groupe spécial d'ajouter une boîte de dialogue d'ouverture de fichier à votre projet.

4. 
   
   
   
   

   Double-cliquez sur le "Bouton" le composant à l'intérieur "Boîte à outils" Groupe spécial d'ajouter un bouton à votre projet. Un bouton apparaîtra dans votre formulaire Windows.

5. Double-cliquez sur le bouton nouvellement créé pour ouvrir son code source.

6. Collez le texte suivant à demander à l'utilisateur un fichier à imprimer et exécuter le VBScript pour imprimer:

   OpenFileDialog1.Filter = "Fichiers PDF | * .pdf"

   résultat dim = OpenFileDialog1.ShowDialog ()

   if (résultat = DialogResult.OK) puis

   filename = dim OpenFileDialog1.FileName
   shell ("wscript C: printPDF.vbs " &fileName Amp)

   fin si