Discussion :

[shdelm]

Bonjour,

Je souhaiterait modifier à la volée la propriété PaperSize de l’imprimante par défaut avant d'ouvrir l'aperçu avec data report. Le problème c'est que cette propriété de l'objet Printer est en lecture seule. J'ai cherché sur MSDN et me sui tombé sur les fonctions SetPrinterData,... qui me parait plus complexes à utiliser car j'ai pas trouvé d'exemples.

Merci d'avance!

[Djoo17]

Bonjour,

Tu peux Prendre, l`exemple suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim doc As New PrintDocument
        Dim pagesetup As New PageSetupDialog
        With pagesetup
            .Document = doc
            .ShowDialog(Me)
        End With
        With Me.TextBox4
            .Text = doc.PrinterSettings.PrinterName & vbCrLf
            .Text = .Text & "Nb de copies : "
            doc.PrinterSettings.Copies.ToString(vbCrLf)
            .Text = .Text & "Assemblees : " '&
            doc.PrinterSettings.Collate.ToString(vbCrLf)
            .Text = .Text & "Couleur : " '&
            doc.DefaultPageSettings.Color.ToString(vbCrLf)
            .Text = .Text & "Orientation : " '&
            IIf(doc.DefaultPageSettings.Landscape.ToString, "Paysage", "Portrait")  'vbcrlf
            .Text = .Text & "Format : " '&
            doc.DefaultPageSettings.PaperSize.ToString() '(vbCrLf)
        End With
 
    End Sub

[l_autodidacte]

De 1 : Le code présenté dans le post 2 n'est pas en VB6 mais en VB.Net
De 2 :

Le problème c'est que cette propriété de l'objet Printer est en lecture seule

A ma connaissance la propriété PaperSize n'est pas en lecture seule mais en Lecture / Ecriture
Un exemple:

Code :

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

1
2
3
4
5
6
7
Dim prnt As Printer
 
Private Sub Form_Load()
  Set prnt = Printer
    prnt.PaperSize = vbPRPSA4 '( Valeur 9 pour papier A4 :21 x 29,7 cm)
    MsgBox prnt.PaperSize
End Sub

En cherchant dans MSDN, on trouve

PaperSize, propriété:
Renvoie ou définit une valeur indiquant le format de papier de l'imprimante courante. Cette propriété n'est pas disponible au moment de la création.

Syntaxe

object.PaperSize [= value]