Discussion :

[nakata77]

Bonjour

j'essaie de changer l'imprimante par defaut pour cela je fais :

pour les declarations de variable:

Code :

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

1
2
3
4
 
Dim strPrinter As [String]
Dim xlApp As Excel.Application
Dim test As String

pour le code :

Code :

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

1
2
3
4
5
6
7
8
9
 
test = strPrinter & " sur " & "Ne01:"
dans test il y a le nom de l'imprimante : "\\splpt10031\PILPT11Y1P sur
 Ne01:"
 
xlApp.Application.ActivePrinter = test
et dans xlApp.Application.ActivePrinter qui vaut "\\splpt10031
\PLLPT11ZMR sur Ne01:" et moi je veux changer cette imprimante par
 defaut par "\\splpt10031\PILPT11Y1P sur Ne01:"

et la ça veut pas marché, en faite quand je veux l'attribuer une autre imprimante il accepte pas
pourtant j'ai utilisé la meme syntaxe , j'ai essayé un copy ça marche pas
' l'erreur qui m'affiche est

COMexception was unhandled
Exception from HRESULT: 0x800A03EC

merci de m'aider

[tophoune]

bon je suppose que ton concerne concerne uniquement l'application. en effet changer l'imprimante par defaut de WinXp ne revient pas a faire la meme chose.
Donc ce que je fais c'est que je recupere la liste des imprimantes disponibles et je les ajoute dans une listbox:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Private Sub ListAvailablePrinters()
For Each strPrinterName As String In PrinterSettings.InstalledPrinters
  ListBox1.Items.Add(strPrinterName)
Next
'Find the Default printer
Dim PD As New PrintDocument
ListBox1.SelectedItem =
 PD.DefaultPageSettings.PrinterSettings.PrinterName
End Sub

ensuite, je selectionne celle qui m'interesse et je l'affecte en tant que default printer

Code :

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

1
2
3
 
Dim pd As New PrintDocument
pd.PrinterSettings.PrinterName = ListBox1.SelectedItem

[nakata77]

Bonjour,

merci de me répondre,ça marche je peux imprimer des fichiers printdocument dans n'importe quel imprimante que je veux mais dans mon projet je crée des fichiers Excel et en faite l'ideal serai de mettre des fichiers excel dans printdocument
tu sais comment on fait ? ou tu as une autre solution

merci