Programmer la configuration d'une imprimante

Version imprimable

01/04/2014, 23h44
shdelm

Programmer la configuration d'une imprimante

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!

Bonjour,

Tu peux Prendre, l`exemple suivant:

Code:

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

08/04/2014, 13h18
l_autodidacte
De 1 : Le code présenté dans le post 2 n'est pas en VB6 mais en VB.Net
De 2 :

Citation:

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:

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

Citation:

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]