Je suis sous VB .Net Initiation sans le Crystal Report.
Je cherche à mettre en page, avoir 1 aperçu et imprimer 1 document à partir
de données d'1 formulaire.
Résumé des problèmes que je rencontre :
L'aperçu à l'écran diffère de l'impression au niveau des marges.
Les unités pour la mise en page et pour l'impression diffèrent.
Détail du problème de différences entre l'aperçu et l'impression au niveau
des marges :
J'ai 1 formulaire Form1 qui contient :
1 menu Edition1 avec les sous-menu MiseEnPage1, Apercu1 et Imprimer1
1 contrôle PrintDocument1 avec la propriété OriginAtMargins = True
1 contrôle PageSetupDialog1 avec la propriété Document = PrintDocument1
1 contrôle PrintPreviewDialog1 avec la propriété Document = PrintDocument1
1 contrôle PrintDialog1 avec la propriété Document = PrintDocument1
Pour éviter tout problème dûs aux marges minimales fluctuant sur chaque
imprimante,
j'ai changé la propriété OriginAtMargins du contrôle PrintDocument1 (De
False par défaut, changé en True)
Si je clique sur le menu Aperçu, la fenêtre de l'aperçu s'ouvre mais ne
tient pas compte de la propriété OriginAtMargins (qui est sur True) et je
trouve donc ma page sans marge haut et gauche. Si je clique l'imprimante
dans cette fenêtre, la page est imprimée normalement avec les marges.
Je vous mets le code :
Private Sub MiseEnPage1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MiseEnPage1.Click
Me.PageSetupDialog1.ShowDialog()
End Sub
Private Sub Apercu1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Apercu1.Click
Private Sub Imprimer1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Imprimer1.Click
If Me.PrintDialog1.ShowDialog() = DialogResult.OK Then
Me.PrintDocument1.Print()
End If
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e
As System.Drawing.Printing.PrintPageEventArgs) Handles
PrintDocument1.PrintPage
Dim largeur_page, largeur, hauteur_page, hauteur As Integer
Dim haut, hauteur_texte As Integer
Dim largeur_séparation, hauteur_séparation As Integer
Public Sub PrintTexte(ByVal E As System.Drawing.Printing.PrintPageEventArgs,
ByVal txt As String, ByVal gauche As Integer, ByVal haut As Integer, ByVal
largeur As Integer, ByVal hauteur As Integer, Optional ByVal encadré As
Boolean = False, Optional ByVal couleur_encadrement As Byte = 1, Optional
ByVal font_style As FontStyle = FontStyle.Regular, Optional ByVal alignement
As Integer = HorizontalAlignment.Left, Optional ByVal couleur_fond As Byte =
0, Optional ByVal couleur_texte As Byte = 1, Optional ByVal nom_police As
String = "Arial", Optional ByVal taille_police As Byte = 10)
Dim RecF As New RectangleF(gauche, haut, largeur, hauteur)
E.Graphics.DrawString(txt, New Font(nom_police, taille_police, font_style),
New SolidBrush(couleur(couleur_texte)), RecF, F)
End Sub
Détail du 2e problème :
Toujours au niveau des marges, si je clique sur le menu Mise en Page, la
boîte de mise en page apparaît en indiquant les marges par défaut (en mm) :
10
Alors que par défaut, les marges sont de 1 pouce soit 25,4 mm
Le pb vient en fait du fait que dans la boîte ce soit indiqué (en mm) au
lieu de (en dizième de pouce).
Ce qui est bien confirmé car lors de l'édition de la page, j'ai
effectivement 1 marge de 1 pouce de chaque côté de la page.
Ce 2e problème induit 1 3e problème :
Détail du 3e problème :
Toujours au niveau des marges dans la boîte de Mise en Page, je valide par
le bouton OK (ou par la touche Entrée), et même si je ne modifie pas les
valeurs, si je retourne de Mise en Page, la valeur des marges ont été
divisés par 2.54.
Comment faire pour résoudre ces problèmes ?
Merci d'avance pour votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Stéphane
Je reposte ma demande, au cas où :)
Cordialement, Stéphane
"Stéphane" a écrit dans le message de news: %23qJ$
Bonjour,
Je suis sous VB .Net Initiation sans le Crystal Report.
Je cherche à mettre en page, avoir 1 aperçu et imprimer 1 document à partir de données d'1 formulaire.
Résumé des problèmes que je rencontre : L'aperçu à l'écran diffère de l'impression au niveau des marges. Les unités pour la mise en page et pour l'impression diffèrent.
Détail du problème de différences entre l'aperçu et l'impression au niveau des marges : J'ai 1 formulaire Form1 qui contient : 1 menu Edition1 avec les sous-menu MiseEnPage1, Apercu1 et Imprimer1 1 contrôle PrintDocument1 avec la propriété OriginAtMargins = True 1 contrôle PageSetupDialog1 avec la propriété Document = PrintDocument1 1 contrôle PrintPreviewDialog1 avec la propriété Document = PrintDocument1 1 contrôle PrintDialog1 avec la propriété Document = PrintDocument1
Pour éviter tout problème dûs aux marges minimales fluctuant sur chaque imprimante, j'ai changé la propriété OriginAtMargins du contrôle PrintDocument1 (De False par défaut, changé en True)
Si je clique sur le menu Aperçu, la fenêtre de l'aperçu s'ouvre mais ne tient pas compte de la propriété OriginAtMargins (qui est sur True) et je trouve donc ma page sans marge haut et gauche. Si je clique l'imprimante dans cette fenêtre, la page est imprimée normalement avec les marges.
Je vous mets le code : Private Sub MiseEnPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MiseEnPage1.Click Me.PageSetupDialog1.ShowDialog()
End Sub
Private Sub Apercu1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Apercu1.Click
Private Sub Imprimer1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Imprimer1.Click
If Me.PrintDialog1.ShowDialog() = DialogResult.OK Then
Me.PrintDocument1.Print()
End If
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim largeur_page, largeur, hauteur_page, hauteur As Integer
Dim haut, hauteur_texte As Integer
Dim largeur_séparation, hauteur_séparation As Integer
Public Sub PrintTexte(ByVal E As System.Drawing.Printing.PrintPageEventArgs, ByVal txt As String, ByVal gauche As Integer, ByVal haut As Integer, ByVal largeur As Integer, ByVal hauteur As Integer, Optional ByVal encadré As Boolean = False, Optional ByVal couleur_encadrement As Byte = 1, Optional ByVal font_style As FontStyle = FontStyle.Regular, Optional ByVal alignement As Integer = HorizontalAlignment.Left, Optional ByVal couleur_fond As Byte = 0, Optional ByVal couleur_texte As Byte = 1, Optional ByVal nom_police As String = "Arial", Optional ByVal taille_police As Byte = 10)
Dim RecF As New RectangleF(gauche, haut, largeur, hauteur)
E.Graphics.DrawString(txt, New Font(nom_police, taille_police, font_style), New SolidBrush(couleur(couleur_texte)), RecF, F)
End Sub
Détail du 2e problème : Toujours au niveau des marges, si je clique sur le menu Mise en Page, la boîte de mise en page apparaît en indiquant les marges par défaut (en mm) : 10 Alors que par défaut, les marges sont de 1 pouce soit 25,4 mm
Le pb vient en fait du fait que dans la boîte ce soit indiqué (en mm) au lieu de (en dizième de pouce). Ce qui est bien confirmé car lors de l'édition de la page, j'ai effectivement 1 marge de 1 pouce de chaque côté de la page.
Ce 2e problème induit 1 3e problème :
Détail du 3e problème : Toujours au niveau des marges dans la boîte de Mise en Page, je valide par le bouton OK (ou par la touche Entrée), et même si je ne modifie pas les valeurs, si je retourne de Mise en Page, la valeur des marges ont été divisés par 2.54.
Comment faire pour résoudre ces problèmes ? Merci d'avance pour votre aide.
_________________________
Cordialement,
Stéphane
Je reposte ma demande, au cas où :)
Cordialement,
Stéphane
"Stéphane" <s.N.l.O.avergne@p..S..o..P..wer-..A..m...M..fr> a écrit dans le
message de news: %23qJ$KL7qEHA.3840@TK2MSFTNGP10.phx.gbl...
Bonjour,
Je suis sous VB .Net Initiation sans le Crystal Report.
Je cherche à mettre en page, avoir 1 aperçu et imprimer 1 document à
partir de données d'1 formulaire.
Résumé des problèmes que je rencontre :
L'aperçu à l'écran diffère de l'impression au niveau des marges.
Les unités pour la mise en page et pour l'impression diffèrent.
Détail du problème de différences entre l'aperçu et l'impression au niveau
des marges :
J'ai 1 formulaire Form1 qui contient :
1 menu Edition1 avec les sous-menu MiseEnPage1, Apercu1 et Imprimer1
1 contrôle PrintDocument1 avec la propriété OriginAtMargins = True
1 contrôle PageSetupDialog1 avec la propriété Document = PrintDocument1
1 contrôle PrintPreviewDialog1 avec la propriété Document = PrintDocument1
1 contrôle PrintDialog1 avec la propriété Document = PrintDocument1
Pour éviter tout problème dûs aux marges minimales fluctuant sur chaque
imprimante,
j'ai changé la propriété OriginAtMargins du contrôle PrintDocument1 (De
False par défaut, changé en True)
Si je clique sur le menu Aperçu, la fenêtre de l'aperçu s'ouvre mais ne
tient pas compte de la propriété OriginAtMargins (qui est sur True) et je
trouve donc ma page sans marge haut et gauche. Si je clique l'imprimante
dans cette fenêtre, la page est imprimée normalement avec les marges.
Je vous mets le code :
Private Sub MiseEnPage1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MiseEnPage1.Click
Me.PageSetupDialog1.ShowDialog()
End Sub
Private Sub Apercu1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Apercu1.Click
Private Sub Imprimer1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Imprimer1.Click
If Me.PrintDialog1.ShowDialog() = DialogResult.OK Then
Me.PrintDocument1.Print()
End If
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal
e As System.Drawing.Printing.PrintPageEventArgs) Handles
PrintDocument1.PrintPage
Dim largeur_page, largeur, hauteur_page, hauteur As Integer
Dim haut, hauteur_texte As Integer
Dim largeur_séparation, hauteur_séparation As Integer
Public Sub PrintTexte(ByVal E As
System.Drawing.Printing.PrintPageEventArgs, ByVal txt As String, ByVal
gauche As Integer, ByVal haut As Integer, ByVal largeur As Integer, ByVal
hauteur As Integer, Optional ByVal encadré As Boolean = False, Optional
ByVal couleur_encadrement As Byte = 1, Optional ByVal font_style As
FontStyle = FontStyle.Regular, Optional ByVal alignement As Integer =
HorizontalAlignment.Left, Optional ByVal couleur_fond As Byte = 0,
Optional ByVal couleur_texte As Byte = 1, Optional ByVal nom_police As
String = "Arial", Optional ByVal taille_police As Byte = 10)
Dim RecF As New RectangleF(gauche, haut, largeur, hauteur)
E.Graphics.DrawString(txt, New Font(nom_police, taille_police,
font_style), New SolidBrush(couleur(couleur_texte)), RecF, F)
End Sub
Détail du 2e problème :
Toujours au niveau des marges, si je clique sur le menu Mise en Page, la
boîte de mise en page apparaît en indiquant les marges par défaut (en mm)
: 10
Alors que par défaut, les marges sont de 1 pouce soit 25,4 mm
Le pb vient en fait du fait que dans la boîte ce soit indiqué (en mm) au
lieu de (en dizième de pouce).
Ce qui est bien confirmé car lors de l'édition de la page, j'ai
effectivement 1 marge de 1 pouce de chaque côté de la page.
Ce 2e problème induit 1 3e problème :
Détail du 3e problème :
Toujours au niveau des marges dans la boîte de Mise en Page, je valide par
le bouton OK (ou par la touche Entrée), et même si je ne modifie pas les
valeurs, si je retourne de Mise en Page, la valeur des marges ont été
divisés par 2.54.
Comment faire pour résoudre ces problèmes ?
Merci d'avance pour votre aide.
"Stéphane" a écrit dans le message de news: %23qJ$
Bonjour,
Je suis sous VB .Net Initiation sans le Crystal Report.
Je cherche à mettre en page, avoir 1 aperçu et imprimer 1 document à partir de données d'1 formulaire.
Résumé des problèmes que je rencontre : L'aperçu à l'écran diffère de l'impression au niveau des marges. Les unités pour la mise en page et pour l'impression diffèrent.
Détail du problème de différences entre l'aperçu et l'impression au niveau des marges : J'ai 1 formulaire Form1 qui contient : 1 menu Edition1 avec les sous-menu MiseEnPage1, Apercu1 et Imprimer1 1 contrôle PrintDocument1 avec la propriété OriginAtMargins = True 1 contrôle PageSetupDialog1 avec la propriété Document = PrintDocument1 1 contrôle PrintPreviewDialog1 avec la propriété Document = PrintDocument1 1 contrôle PrintDialog1 avec la propriété Document = PrintDocument1
Pour éviter tout problème dûs aux marges minimales fluctuant sur chaque imprimante, j'ai changé la propriété OriginAtMargins du contrôle PrintDocument1 (De False par défaut, changé en True)
Si je clique sur le menu Aperçu, la fenêtre de l'aperçu s'ouvre mais ne tient pas compte de la propriété OriginAtMargins (qui est sur True) et je trouve donc ma page sans marge haut et gauche. Si je clique l'imprimante dans cette fenêtre, la page est imprimée normalement avec les marges.
Je vous mets le code : Private Sub MiseEnPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MiseEnPage1.Click Me.PageSetupDialog1.ShowDialog()
End Sub
Private Sub Apercu1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Apercu1.Click
Private Sub Imprimer1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Imprimer1.Click
If Me.PrintDialog1.ShowDialog() = DialogResult.OK Then
Me.PrintDocument1.Print()
End If
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim largeur_page, largeur, hauteur_page, hauteur As Integer
Dim haut, hauteur_texte As Integer
Dim largeur_séparation, hauteur_séparation As Integer
Public Sub PrintTexte(ByVal E As System.Drawing.Printing.PrintPageEventArgs, ByVal txt As String, ByVal gauche As Integer, ByVal haut As Integer, ByVal largeur As Integer, ByVal hauteur As Integer, Optional ByVal encadré As Boolean = False, Optional ByVal couleur_encadrement As Byte = 1, Optional ByVal font_style As FontStyle = FontStyle.Regular, Optional ByVal alignement As Integer = HorizontalAlignment.Left, Optional ByVal couleur_fond As Byte = 0, Optional ByVal couleur_texte As Byte = 1, Optional ByVal nom_police As String = "Arial", Optional ByVal taille_police As Byte = 10)
Dim RecF As New RectangleF(gauche, haut, largeur, hauteur)
E.Graphics.DrawString(txt, New Font(nom_police, taille_police, font_style), New SolidBrush(couleur(couleur_texte)), RecF, F)
End Sub
Détail du 2e problème : Toujours au niveau des marges, si je clique sur le menu Mise en Page, la boîte de mise en page apparaît en indiquant les marges par défaut (en mm) : 10 Alors que par défaut, les marges sont de 1 pouce soit 25,4 mm
Le pb vient en fait du fait que dans la boîte ce soit indiqué (en mm) au lieu de (en dizième de pouce). Ce qui est bien confirmé car lors de l'édition de la page, j'ai effectivement 1 marge de 1 pouce de chaque côté de la page.
Ce 2e problème induit 1 3e problème :
Détail du 3e problème : Toujours au niveau des marges dans la boîte de Mise en Page, je valide par le bouton OK (ou par la touche Entrée), et même si je ne modifie pas les valeurs, si je retourne de Mise en Page, la valeur des marges ont été divisés par 2.54.
Comment faire pour résoudre ces problèmes ? Merci d'avance pour votre aide.