Discussion :

[vilcoy]

Bonjour,

Je suis en train de me débattre avec les impressions dans VB .Net, et je ne m'en sors pas...
Quelqu'un qui a les idées claires à ce sujet pourrait-il m'aider sur les points suivants ?

1. J'essaie d'obtenir la zone imprimable de l'imprimante choisie pour mon PrintDocument1.
J'utilise donc :

Code :

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

1
2
 
PrintDocument1.PrinterSettings.DefaultPageSettings.PrintableArea.Left (right,top,bottom...)

Ca me retourne des coordonnées en single. Quelle est l'unité ?

2. Admettons que je veuille tracer un rectangle représentant cette zone imprimable.
Je vais donc utiliser dans l'évènement PrintPage :

Code :

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

1
2
3
 
Dim rect As New Rectangle(x,y,largeur,longueur)
e.Graphics.DrawRectangle(Pens.Black, rect)

Comment définir x, y, largeur et longueur pour que les unités correspondent à ce que m'a retourné le PrintableArea ?

(note : j'ai consulté le très bon document http://bidou.developpez.com/tutoriel...et/impression/ mais il y a des choses qui m'échappent encore).

Merci pour votre aide !

[Lunelame]

Salut,

Pour ton 1°, C'est parce que ton PrintDocument1.PrinterSettings.DefaultPageSettings.PrintableArea te retourne un RectangleF. Je pense que l'unité est donc du pixel retourné en Single.
Enfin, ça reste à confirmer, je te dis ça de mémoire.

Donc, pour ton 2°, déclare un RectangleF pas un Rectangle.
Du genre :

Code :

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

1
2
3
4
5
6
7
8
 
     Dim myRect As RectangleF
     With myRect
          .X = e.MarginBounds.X
          .Y = e.MarginBounds.Y
          .Width = e.MarginBounds.Width 
          .Height = e.MarginBounds.Height
     End With

[vilcoy]

Merci Lunelame

J'ai essayé de passer en RectangleF, mais je n'ai pas trouvé la méthode pour le dessiner !
e.Graphics.DrawRectangleF n'existe pas. (il y a bien Graphics.DrawRectangles, mais il lui faut un tableau de RectangleF, je vais éviter les complications...)

Par contre, j'ai créé mon Rectangle avec les MarginsBounds et effectivement ça fonctionne.

Par contre, nouveau problème :

J'essaie de passer ma page en Paysage, dans une fonction exécutée avant le PrintPage :

Code :

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

1
2
 
PrintDocument1.PrinterSettings.DefaultPageSettings.Landscape = True

Mais lorsque le PrintPage est lancé, la page est en Portrait. Comment expliquer ça ?

[Lunelame]

Utilise :
e.Graphics.DrawRectangle(oPen, Rectangle.Ceiling(myRect))

@ +

[vilcoy]

OK,
... et pour mon problème d'orientation Paysage... une idée ?

[Lunelame]

Verifie cela :
PrintDocument1.PrinterSettings.PageSettings.Landscape = True

Fait le avant de lancer l'impression.
Je ne suis pas sur que lorsque tu modifie le DefaultPageSettings les modification se répercute sur les PageSettings déjà créé.

[vilcoy]

Heu... j'ai du être très méchant dans ma vie précédente, car je n'ai pas la propriété PrintDocument1.PrinterSettings.PageSettings

Il ne me propose que DefaultPageSettings...