Besoin d'aide pour un soft d'impression d'imagesRésolu

Question

Bonjour à tous :)

Voilà j'aurais besoin de vos lumières sur :

J'aurais besoin d'un prog pouvant scruter à interval régulié un repertoire et imprimer son contenu ( à savoir des images ).
"je cherche bien à imprimer ces images et non imprimer la liste des images contenu dans le repertoire d'où ma difficulté ;)"

Je n'ai rien trouvé encore et je ne vois pas trop comment faire.

Si l'un de vous à une idée ça m'interesse !!

Merci d'avance @++

yoslo

PCPT · Accepted Answer

je viens de le faire.

par contre, l'impression ne s'est lanc&#233;e qu'&#224; la fermeture de l'appli, sachant que je n'ai qu'une seule imprimante (donc par d&#233;faut) et qu'elle est partag&#233;e sur un autre poste en r&#233;seau.

et je n'ai fait le test d'impression &#224; proprement dit, que pour une seule image.

voici le code, il te faut une form, un Command1, et une Picture1

Dim MyPath As String, MyName As String
Dim MyJpg() As String
Dim i As Integer, j As Integer
Dim rep As String



Private Sub Form_Load()
MyPath = App.Path & "	est" 'ton chemin
i = 0
End Sub
Private Sub Command1_Click()


    MyName = Dir(MyPath & "*.jpg")   ' Extrait la picture.
    Do While MyName <> ""   ' Commence la boucle.
       ReDim Preserve MyJpg(i)
       MyJpg(i) = MyName
       i = i + 1
       Debug.Print "-> " & MyName
       MyName = Dir   ' Extrait l'entr&#233;e suivante.
    Loop
    
    If i = 0 Then MsgBox "aucune photo jpg", 32, "sortie": Exit Sub
    rep = MsgBox(i & " photo(s)" & vbCrLf & "tout imprimer?", vbYesNo, "pas un test !!! impression r&#233;elle miniature")
    If rep = vbNo Then Exit Sub
    
    Printer.ScaleMode = 6
    Picture1.AutoSize = True
    
    For j = 0 To i - 1
        Picture1.Picture = LoadPicture(MyPath & MyJpg(j))
        DoEvents
        Printer.PaintPicture Picture1.Picture, 0, 0, 50, 50
        DoEvents
    Next j
End Sub

t'as plus rien &#224; faire ;)

PCPT

PCPT · Answer

avec le Dir, tu as la listes des fichiers
ExPath qqc pour l'extension, que tu filtres donc sur les .jpg, bmp, etc...
tu enregistres les chemins dans un tableau, et for 0 to Ubound(tableau), une picture r&#233;cup&#232;re le chemin (LoadPicture) une par une. c'est donc le contenue de ta picture que tu imprimeras au fur et &#224; mesure...

??oui?

PCPT

yoslo · Answer

merci :)

Si tu avais un exemple parce que la je nage un peut (débutant inside)

merci encore

yoslo · Answer

ahhh ba comment t'es rapide je teste ca de suite 

Merci merci merci !!!!

yoslo · Answer

alors j'ai testé ca fonctionne parfaitement mais effectivement il n'imprime qu'à la fermeture du prog.

me reste 2 questions : (désolé de t'ennuyer mais ca me permet d'apprendre )

1:) comment une fois imprimée déplacer l'image vers un autre dossier.
2:) et comment imprimer en format A4 ( pas en miniature)

voilà merci beaucoup de ton aide

PCPT · Answer

ok, tant mieux si &#231;&#224; fonctionne (presque compl&#232;tement) chez toi.
t'as essay&#233; avec plusieurs images? en listing, moi &#231;&#224; fonctionne, mais je t'avoue que mon imprimante doit &#234;tre plus vieille que nous 2 r&#233;unis, donc j'ai voulu la m&#233;nager....

1) &#224; ce niveau, ton tableau MyJpg() contient le nom des images, et tu as toujours le reste du chemin complet dans MyPath. je suis persuad&#233; que tu veux garder un peu de m&#233;rite quant &#224; la r&#233;alisation de ton projet. tu trouveras moultes sources concernant la copie, d&#233;placement, suppression, etc...
(un indice, beaucoup de commandes Dos fonctionnent. remove directory?...)

2) Printer.PaintPicture Picture1.Picture, 0, 0, 50, 50
=  imprime le contenu de l'image, &#224; partir de 0,0 (coin haut gauche) 50,50 (taille pour bas droit)
je ne doute pas que tu aurais pu trouver seul  : .......0, 0 , Picture1.Width, Picture1.Height
(il est possible que ces 2 derni&#232;res valeurs soient &#224; multiplier par Screen.Twip ...X & Y, &#233;quivalent &#224; 15)

3) remercie moi en faisant r&#233;f&#233;rence &#224; ton serviteur, dans ta source ;)
et pense &#224; valider ma pr&#233;c&#233;dente r&#233;ponse, pour que les lecteurs s&#226;ches qu'&#224; ce probl&#232;me, il y avait une solution

ps : pour l'impression retard&#233;e, il faut sans doute d'abord configurer l'imprimante, c'est &#224; dire &#234;tre certain qu'il y en ait une, laquelle, etc.... et probablement que l'impression ne se lance qu'apr&#232;s fermeture pour une question de priorit&#233;. je te laisse chercher un peu

++
PCPT

yoslo · Answer

voilà donc pour la taille je m'en suis sorti ;)

Par contre si plusieurs images dans le dossier 1 seule s'imprime.

je devrais m'en sortir pour le reste ( ca sera une trés bonne base )
le but etant de transformer un simple scanner en photocopieur.
et une fois l'image scanné et imprimée la déplacer vers un dossier d'archive d'ou il poura etre consulté et réimprimé

merci pour ton aide.

yoslo

PCPT · Answer

imprimante : sans doute chercher au niveau de la file d'impression. j'ai jamais eu a me pr&#233;occuper de &#231;&#224;, j'en sais pas plus.
pour l'id&#233;e, ouai, c'est pas mal ;)
(pour info, &#231;&#224; existe, mais en open source, je sais pas)
par contre, le fait de d&#233;placer les images apr&#232;s impression, je te conseille de le mettre en optionnel, genre param&#232;tres/options du programme. perso, &#231;&#224; me g&#232;nerait qu'&#224; chaque impression, mes images aillent ailleurs.....
(et il te faudra g&#233;rer l'erreur possible du "d&#233;placement dans le m&#234;me dossier", ainsi que v&#233;rifier en temps r&#233;el &#224; chaque image, que le dossier de transfert existe toujours ;))

bon courage
PCPT

Besoin d'aide pour un soft d'impression d'images

8 réponses

Discussions similaires