Imprimer sous VB.Net; questions multiplesRésolu

Question

Probl&#232;me 1


J'utilise VB.Net et pour l'impression la syntaxe e.Graphics.DrawString(&#133;.)


Malheureusement, le texte &#224; imprimer ne contient pas sur une seule page et j'ai beau chercher, je n'arrive pas &#224; trouver la syntaxe permettant de passer automatiquement &#224; la page suivante lorsque le texte est hors limite du document.


Pour l'instant j'utilise l'astuce qui consiste &#224; constituer autant de String que n&#233;cessaire pour imprimer ces string sur diff&#233;rents documents gr&#226;ce &#224; If "la string 1 a N lignes" then "on remplit la string 2 pour l'imprimer sur le doc 2" &#133;. Etc.


Je trouve &#231;a tr&#232;s lourd et &#231;a m'agace. Si quelqu'un pouvait me donner le code permettant de passer l'impression automatiquement sur la page suivante, &#231;a serait sympa.




Probl&#232;me 2


Mon deuxi&#232;me soucis est l'impossibilit&#233; (du moins je le suppose) de ne pas pouvoir modifier par visualisation avant impression le document &#224; imprimer. En outre, le document imprim&#233; ne peut pas &#234;tre Save pour &#234;tre r&#233; ouvert comme le ferait un DocumentWord.doc


Peut-&#234;tre seriez-vous capable de me donner des astuces &#224; ce sujet ?




Probl&#232;me 3


Je me suis donc naturellement int&#233;ress&#233; &#224; l'impression sur Word


Apr&#232;s avoir lu diverses choses sur le forum, j'ai trouv&#233; comment ins&#233;rer des variables gr&#226;ce aux signets. Cependant il y a un truc qui m'&#233;nerve : lorsque Word est d&#233;j&#224; ouvert, le document suivant est correctement cr&#233;&#233; mais la fen&#234;tre reste dans la barre d'outil et elle ne s'ouvre pas automatiquement pour se mettre en premier plan. Un clic est donc n&#233;cessaire pour voir le doc. Y a-t-il moyen de forcer cette fen&#234;tre &#224; se mettre en premier plan ?




Probl&#232;me 4


Toujours sur Word, je d&#233;veloppe sous Word 2002 et je dois me d&#233;brouiller pour que l'impression fonctionne aussi sous Word 1997. Conform&#233;ment &#224; ce que j'ai lu, j'ai remplac&#233; 


"Ref Word"


"Dim Word as new Word.Application"


par 


Dim Word as new Object


"Word = CreateObject("Word.Application")"


Quid alors de l'insertion des signets et notamment de "Dim objrange As Word.Range" ?






Je vous remercie d'avance des r&#233;ponses que vous pourriez apporter et qui, je l'esp&#232;re, seront suffisamment claire pour mon niveau de compr&#233;hension. En effet, j'ai appris le VB cet &#233;t&#233; en lisant "VB.Net pour les Nuls". Vous ne serez donc pas &#233;tonn&#233; par le niveau "d&#233;butant-plancher" de mes questions.

felsfr · Accepted Answer

Probleme 1


Dans ta procedure appelante

Private Sub   etc..........//////


'on suppose que tu as une liste de films selon le format
'titre_a_imprimer(nr_film)
'de titre_a_imprimer(0) &#224; titre_a_imprimer(X)
'et tu veux imprimer un titre de film par ligne

PrintPreviewDialog1.Document = PrintDocument1

nr_film = 0                                
'n&#176; du 1er film &#224; afficher
nombre_films=X-1                  'le nombre total de film &#224; imprimer
PrintPreviewDialog1.ShowDialog()



End 
Sub



Private 
Sub PrintDocument1_PrintPage(
ByVal sender 
As System.Object, 
ByVal e 
As System.Drawing.Printing.PrintPageEventArgs) 
Handles PrintDocument1.PrintPage


Dim align_centre 
As 
New StringFormat
align_centre.Alignment = StringAlignment.Center

Dim position_Y_mini 
As 
Integer = 0         'ta marge haute

Dim position_X 
As 
Integer = 0                  
'ta marge gauche
Dim position_Y 
As 
Integer = 0

Dim ligne_actuelle 
As 
Integer = 0             'la 1ere ligne de la page

Dim lignes_par_page 
As 
Integer = 54      'nombre de lignes par page(en fait tu calcules en fonction de la police)

Dim interligne 
As 
Integer = 5                     ' en fonction de la police aussi, ici c'est un exemple

Dim police_taille 
As 
Integer = 10

'tant qu'on ne depasse pas le bas de page et qu'il reste des donn&#233;es a imprimer
While (ligne_actuelle < lignes_par_page) 
And (nr_film < nombre_films)

   'on calcule le Y de la ligne &#224; afficher
   position_Y = position_Y_mini + (interligne * ligne_actuelle)

   'on affiche le titre du film
   e.Graphics.DrawString(titre_a_imprimer(nr_film), 
New Font("arial", police_taille), Brushes.Black, position_X , position_Y , Align_centre)

   'on passe au film suivant
   nr_film = nr_film + 1

   'qu'on affichera sur la ligne suivante
   ligne_actuelle = ligne_actuelle + 1

End 
While

'on a atteint le nombre de ligne max
'on regarde s'il y a encore des films (donc une autre page)
If nr_film < nombre_films 
Then
   e.HasMorePages = 
True          'il reste des pages
Else
   e.HasMorePages = 
False         'plus de pages
   'on r&#233;initialise les variables transmises avant le preview
   'car si on print depuis l apercu, les variables ne sont
   'pas r&#233;iniatils&#233;es
   nr_film = 0 
'n&#176; du 1er film &#224; afficher
End 
If

End 
Sub

felsfr · Answer

Petite erreur, il faut lire nombre_films=X+1 (de 0 &#224; X en fait) mais je ne sais pas si on peux &#233;diter un Post
 
 
'on suppose que tu as une liste de films selon le format
'titre_a_imprimer(nr_film)
'de titre_a_imprimer(0) &#224; titre_a_imprimer(X)
'et tu veux imprimer un titre de film par ligne
PrintPreviewDialog1.Document = PrintDocument1

nr_film = 0                                
'n&#176; du 1er film &#224; afficher
nombre_films=X-1                  'le nombre total de film &#224; imprimer
PrintPreviewDialog1.ShowDialog()



End 
Sub

ORTHROS · Answer

Merci pour la r&#233;ponse &#224; mon probl&#232;me n&#176;1, e.HasMorePages = True, c'est effectivement plus cool que mon usine &#224; gaz; 

Ce qui me chagrine un peu c'est qu'apparemment, il n'y a pas de saut de page automatique puisqu'on doit tout de m&#234;me calculer le nombre de ligne ce que je faisais d&#233;j&#224; .

felsfr · Answer

Effectivement, pas de saut de page automatique puisque l'on est en mode graphique, tout ce qui est hors des limites de la feuille n'est pas imprim&#233;. Mais bon ce syst&#232;me autorise des mises en page complexes, les coordonn&#233;es &#233;tant en 100eme de pouce.

Quant au probl&#232;me 2, il est effectivement impossible de modifier le document par visualisation avant impression. La solution serait peut &#234;tre de cr&#233;er ton propre aper&#231;u dans un RichTextBox si tu n'utilise que du texte ?

Imprimer sous VB.Net; questions multiples

4 réponses

Discussions similaires