Discussion :

[adilsoft]

Bonjour,
j'essaie d'imprimer différentes document d'un répertoire d'une façon automatique, mais je doit associer une mise en page de A3 pour certain documents, comment je procède svp ?

[Vince]

De quel format de documents s'agit-il ?
Quel code utilises-tu pour les imprimer ?

Pour info tuto impressions avec VB6 : http://vb.developpez.com/bidou/vb-impression/

[adilsoft]

voici le code que j'utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Option Explicit
 
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
 
        Dim NbFichiers As Long
        Dim Tableau() As String
        Const Dossier As String = "C:\Transfert"
 
Sub Tst()
    Dim hwnd As Long
    Dim i As Long
    Dim DossierOk As String
 
    DossierOk = Dossier
 
    If Right(DossierOk, 1) <> "\" Then DossierOk = Dossier & "\"
 
      ListeFichiers DossierOk, "*"
      If NbFichiers > 0 Then
      For i = 1 To UBound(Tableau)
      ShellExecute hwnd, "print", DossierOk & Tableau(i), "", "", SW_SHOWNORMAL
      'Printer.Print Tableau(i)
      Next
      End If
 
 
End Sub
 
Private Sub ListeFichiers(ByVal NomDossierSource As String, ByVal Extension As String)
    Dim NomFichier As String
    NomFichier = Dir(NomDossierSource & "*." & Extension)
 
    Erase Tableau
    NbFichiers = 0
    Do While Len(NomFichier) > 0
      Label1.Caption = Label1.Caption & NbFichiers & "- " & NomFichier & Chr(13)
 
      NbFichiers = NbFichiers + 1
      ReDim Preserve Tableau(1 To NbFichiers)
      Tableau(NbFichiers) = NomFichier
      NomFichier = Dir()
    Loop
End Sub
 
 
 
Private Sub Form_Load()
Tst
End Sub

j'ai vu le document merci, et j'ai essayé de faire comme ça, mais ça ne amrche pas.

Code :

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

Printer.PaperSize = vbPRPSA3

[Vince]

De quel format de documents s'agit-il ?
Et dans le tuto que tu as lu il est stipulé d'imprimer avec ShellExecute ?

[adilsoft]

je doit imprimer des documents de type : Pdf, Excel, RTF .. c'est pourquoi j'utilise shellexecute qui me facilite la tâche, le problème qui me reste est de modifier la mise en page.
j'ajoute que la classe Printer ne me permet pas d'imprimer mes documents, sinon comment je fais avec Printer? parce que printer prend en charge les paramètres de mise en page?

[Vince]

Le mieux serait peut être d'ouvrir les documents avec l'activeX correspondant puis de paramétrer la mise en page et enfin lancer l'impression...
A mon avis avec ShellExecute tu n'as aucun contrôle sur la mise en page du document.

[adilsoft]

merci Vince pour la piste, que je vais suivre et je reviens vers vous