Discussion :

[polako94]

bonjour messieurs les programeurs !

je me lance dans un dévelopement, qui n'est pas en visual basic,mais qui ne remplis pas tous mes besoins. j'ai quelques base moi meme en vb mais je ne suis pas expert, je viens donc prendre conseil auprès de vous.
je cherche a faire un petit utilitaire en vb qui irait chercher le contenu d'un dossier, qui contiendra plusieurs fichiers (de type page web) et les lancer en impression d'un seul coup, sans avoir toutes les confirmation et autres ??
en VB est-ce possible ?
c'est a dire mettre tous les fichiers de mon dossier dans la liste d'impression de l'imprimante sans avoir a faire de confirmation.


Merci a vous !

[Vesta]

Pour lister les fichier du répertoire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim sFiles() As String
Dim sFolders() As String
Dim x As Long
 
 
ReDim sFiles(0)
EnumFiles "REPERTOIRECONCERNE", sFiles(), True, False 'énumère les fichiers
 
 
For x = 1 To UBound(sFiles())
 Debug.print sFiles(x)
Next x

Pour inprimer, pourquoi pas les lancer dans un webbrowser et les imprimer de la...

Tu devrais trouver du code qui fait cela

Sinon il existe peut etre une commande que tu peux lancer via shell

[SfJ5Rpw8]

Pour lister les fichier du répertoire :

...

la fonction Dir suffit pour lister..

[Vesta]

Bon OK ca va je m'incline

Bon j'ai qd meme donné une petite idée pour l'impression

[SfJ5Rpw8]

Bon OK ca va je m'incline

Bon j'ai qd meme donné une petite idée pour l'impression

tiens et la il y as un peu de code .. :
http://www.developpez.net/forums/sho...53&postcount=2

[Delbeke]

A ce qui me semble, imprimer par le webbrowser implique l'intervention utilisateur.
Moi j'utilise l'objet DHTMLED.OCX "DHTML Edit Control for IE5"

Voici un exemple de code

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
Option Explicit
Dim m_HtmlDocComplete As Boolean
 
Private Sub Command1_Click()
  Imprime Text1.Text
End Sub
 
Private Sub DHTMLEdit1_DocumentComplete()
  m_HtmlDocComplete = True
End Sub
 
Private Sub ImprimeHTML(FileName As String)
  Dim hFich  As Integer
  Dim Buffer As String
  Converse1.SendData "Report|    Impression fichier html : " & FileName, "_WL_ZIP_MON_VISU_"
  hFich = FreeFile
  Open FileName For Binary As #hFich
    Buffer = String(LOF(hFich), 0)
    Get #hFich, , Buffer
  Close #hFich
  m_HtmlDocComplete = False
  DHTMLEdit1.DocumentHTML = Buffer
  Do While DHTMLEdit1.Busy
    DoEvents
  Loop
  Do While m_HtmlDocComplete = False
    DoEvents
  Loop
  DHTMLEdit1.PrintDocument False
End Sub

[SfJ5Rpw8]

désolé de m'initier dans la conversation, je connais pas ce contrôle (va me falloir faire des tests..)... Delbeke ... c'est quoi .. : Converse1 ?

[polako94]

merci déja de vos réponses,
mais je suis comme bbil, je ne comprend pas le converse1 ??

[SfJ5Rpw8]

finalement je sais ce que c'est :
http://www.developpez.net/forums/sho...d.php?t=226405

[Delbeke]

Heu, oubliez le converse1 , c'est un composant permettant de faire dialoguer deux applis.
Le code que j'ai donné est un extrait d'une de mes applis qui tourne en réel, j'ai oublié de supprimer la ligne qui n'a rien à voir dans ce contexte.