dessiner plusieurs pages sur un PrintDocumentRésolu

Question

Étant illettré, je signe d'une croix : ×

Utilisateur anonyme · Accepted Answer

N'étant pas devin, je laisse vide le reste de la page.

Zermelo · Answer

Bonjour.

Je voudrais savoir si, quand on dessine sur un PrintDocument, il suffit de dépasser le format d'une page pour en créer automatiquement une nouvelle.

Merci à qui voudra m'aider.


Étant illettré, je signe d'une croix : ×

Utilisateur anonyme · Answer

Bonjour,

En principe le PrintDocument contient l'ensemble du document auquel il correspond. Regarde dans ton aide, il doit y avoir une propriété HasMorePages ou quelque chose du genre.

ehjoe · Answer

Bonjour,

En complément : Je crois bien que c'est toi qui décide du nombre de page par le contrôle que tu as sur ce que tu envvoies à l'imprimante : code :


' Impression logique : OBJET = PrintDocument
Sub Button2_Click(
 i = 0 ' GLOBAL AFFECTE A CETTE SEULE FONCTION 
 Dim r As String = MsgBox("Imprimer sur PAPIER", vbQuestion + vbYesNo + 
 vbDefaultButton2)
 If r <> vbYes Then Exit Sub
 Dim PageSetupDialog As New PageSetupDialog() ' objet = PageSetupDialog
 PageSetupDialog.Document = PrintDocument1
 PageSetupDialog.PageSettings.Landscape True ' paysage (portrait False)
 Me.PrintDocument1.Print()
End Sub

' impression physique (papier)
Sub PrintDocument1_PrintPage(
 Dim police As New Font("Courier New", 12, FontStyle.Regular)
 Dim yPos As Integer = 10 ' pixels
 Do While i < ListBox1.Items.Count
  e.Graphics.DrawString(ListBox1.Items(i), police, Brushes.Black, 10, yPos)
  Select Case i 
   Case 3, 6, 9
     e.HasMorePages = True ' saut de page
      i = i + 1
     Return ' retour saut de page à Me.PrintDocument1.Print()
  End Select
  yPos = yPos + police.GetHeight
  i = i + 1
 Loop
End Sub



Cordialement, Joe.

Zermelo · Answer

Bonjour Joe.

Je me demandais aussi pourquoi diable ce booléen HasMorePages est accessible en écriture. Je vais essayer cela le plus vite possible (en me limitant à deux pages dans un premier temps), et je vous en ferai un compte rendu.

Un grand merci.


Étant illettré, je signe d'une croix : ×

Zermelo · Answer

Bonjour cmarcotte, bonjour EhJoe.

Cela fonctionne à merveille, au prix de quelques ajustements mineurs.

Encore merci à vous deux.


Étant illettré, je signe d'une croix : ×

Dessiner plusieurs pages sur un PrintDocument

6 réponses

Votre réponse

Discussions similaires