Discussion :

[serana71]

Bonjour,


J'ai un programme qui crée des PDF à partir de PDFCreator et qui les stocke dans un dossier. Ensuite, je voudrais imprimer ces PDF avec une vraie imprimante, tout en maintenant PDFCreator comme imprimante par défaut... Est-ce possible ? J'ai surtout du mal avec la syntaxe pour les impressions, je vous écris rapidement ce que j'ai mis dans mon programme à propos de l'imprimante réelle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim p As Printer
p = "\\PC-GALLIUM\Brother HL-1430 series"
p.Print document.pdf

Et là il me met une erreur 91 ou 83 comme quoi il ne gère pas ces paramètres, etc.

En gros voilà.

Merci pour votre aide.


Cécile

[l_autodidacte]

Il faudra que l'imprimante soit disponible et l'initialiser avec l'instruction Set :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
   Dim P As Printer
   For Each P In Printers
     ' Set Printer = P
     ' MsgBox P.DeviceName
      If P.DeviceName = "\\PC-GALLIUM\Brother HL-1430 series" Then
          Set Printer = P
          P.Print "Ceci est un exemple"
          MsgBox P.DeviceName
      End If
   Next P
End Sub

Tu peux activer les lignes en commentaires pour voir les imprimantes installées.
Le 2ème MsgBox te permet de voir si cette imprimante a été choisie ou non.

[serana71]

J'ai rajouté ce bout de code dans mon programme, mais il me sort une erreur 424 un Objet est requis... Je vais péter les plombs avec ce programme, je suis dessus depuis le mois de janvier !! Je dois vraiment pas avoir la science infuse en VB.

Bref, la question que je me posais c'est : avec le code de l_autodidacte, lorsque je mets Set Printer = p, est-ce que je me sers de l'imprimante affectée à p uniquement pour cette impression ?

Plus simplement, est-ce que je peux jouer avec deux imprimantes différentes dans un programme VB, en passant de l'une à l'autre sans les empêcher de faire leur travail dans leur coin ? En les appelant quand j'ai besoin d'elles avec leurs prénoms respectifs ?

Est-ce que je peux demander à PDFCreator de me créer des PDF et simultanément de les imprimer avec une vraie imprimante ? Ou est-ce que ça crée une confusion, des interférences ?


Merci beaucoup,



Cécile

[OhMonBato]

Bonjour,

à priori je changerais d'abord d'imprimante (je pense qu'il y a des codes dispo sur le forum ou dans la FAQ, celui-ci peut être), puis j'imprimerais le PDF avec un shellexecute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
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()
ShellExecute Me.hwnd, "print", "C:\Users\Pierre\Documents\Crossing18.pdf", _
vbNullString, vbNullString, 1
End Sub

[serana71]

J'ai bidouillé un peu mon code et je commence à y voir plus clair.

Maintenant tout se passe bien, l'imprimante se met en route quand il faut, mais eu lieu de m'imprimer mon fichier concaténé, elle m'imprime une feuille blanche... Alors qu'elle imprime très bien mon fichier quand je lui demande manuellement.

Je vais essayer de lui préciser le chemin du fichier à imprimer, c'est peut être ça qui ne lui va pas...


Cécile

[250rgv]

Les objets Printer de VB ne peuvent pas imprimer de documents comme tu veut le faire.

Pour faire ce que tu veut, une solution est de passer par la commande shell comme l'indique OhMonBato mais en changeant au prélable l'imprimante par défaut par celle que tu vise puis en remettant l'ancienne si tu veut éviter que ton utilisateur s'arrache les cheveux à comprendre pourquoi son imprimante par défaut change sans arrêt.

Tu dois imprimer tes documents directement après leur génération ou est-ce qu'il y a un délai ? Car, dans les options de pdfcreator, il y en a une qui le fait imprimer le document après l'avoir enregistré.