Discussion :

[dominux80]

Bonjour,

J'imprime le contenu d'un MSHFlexGrid a l'aide du code ci-dessous.

Code :

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

1
2
3
4
5
 
 ' Impression de la grille en paysage
    Printer.Orientation = vbPRORLandscape
    Printer.PaintPicture MSHFlexGrid.Picture, 0, 0
    Printer.EndDoc

Mais je voudrai imprimer avec la date du jour. Malgré mes recherches pas trouvé comment faire.

Si quelqu'un a une idée, je suis preneur

Merci a tous

[OhMonBato]

Code :

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

1
2
3
4
5
6
 
' Impression de la grille en paysage
    Printer.Orientation = vbPRORLandscape
    Printer.Print Now  'Ou quelquechose pour formater ta date si tu veux
    Printer.PaintPicture MSHFlexGrid.Picture, 0, 0
    Printer.EndDoc

[dominux80]

Désolé OhmonBato, mais ça ne marche pas, il ne m'imprime toujours que le contenur du MSHFlexGrid et rien de plus

mais c'est peut être là que ça cloche

Code :

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

1
2
 
Printer.PaintPicture MSHFlexGrid.Picture, 0, 0

Car je lui demande d'imprimer dès le haut de la feuille

Merci

[OhMonBato]

Et bien essaye en modifiant tes coordonnees de destination et dis nous si c'est bon ou pas.

[ProgElecT]

Salut OhMonBato et dominux80

Code :

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

1
2
3
4
5
    Printer.Orientation = vbPRORLandscape
    Printer.PaintPicture MSHFlexGrid1.Picture, 0, 240
    Printer.ForeColor = &HFF&: Printer.CurrentX = 15: Printer.CurrentY = 15
    Printer.Print Now  'Ou quelquechose pour formater ta date si tu veux
    Printer.EndDoc

code vérifié.

[dominux80]

Merci a tous, oui c'etait bien mes dimensions d'impression