Parametre d'impression "mise a l'echelle"

Question

Bonjour &#224; tous, je d&#233;sire imprimer une image &#224; une certaine echelle (75%)

Quand je clique sur un bouton, ca m'enregistre l'image cr&#233;&#233;e et en meme temps j'aimerais imprimer voila le code du bouton :



Private Sub BEnregistrer_Click()

    Dim Retour As Integer

    SavePicture LeCode.Image, "code.bmp"

    Retour = BMP2JPGpourVBFrance(App.Path & "\code.bmp", App.Path & "\code.jpg", 100)

    PrinterDefault = True

    CommonDialog1.ShowPrinter

End Sub



Donc en gros j'aimerais savoir si il existe une fonction permettant de faire un truc du genre :

Printer.Echelle = 0.75

Merci d'avance !

darkzealot · Answer

I have found !



 Private Sub BEnregistrer_Click()

     Dim Retour As Integer

     SavePicture LeCode.Image, "code.bmp"

     Retour = BMP2JPGpourVBFrance(App.Path & "\code.bmp", App.Path & "\code.jpg", 100)

     PrinterDefault = True

    Printer.Zoom = 75         

     CommonDialog1.ShowPrinter

    Printer.PaintPicture LoadPicture(App.Path & "\code.jpg"), 0, 0

 End Sub



le probleme c'est qu'on peut pas definir deux fois le zoom, donc on
peut pas se reservir deux fois du bouton, faut mettre le Printer.Zoom
ailleur.

Maintenant j'ai un peu des probs au niveau de l'imprimante (des fois il choisit pas la bonne o_O)



Bon ben j'espere que ca en aidera certains.

Parametre d'impression "mise a l'echelle"

1 réponse

Discussions similaires