Discussion :

[BenMarcel]

Bonjour à tous,
Je développe une application SSIS avec des cripts VB .Net. L'application est stocké sur un serveur et sera appelé via un client léger PHP sur des postes de travail. J'aimerais effectuer si possible les opérations suivantes :

- Récupérer l'imprimante paramétrée par défaut sur le poste de travail
- Imprimer un document (PDF) sur cette imprimante

merci d'avance pour vos réponses

[infosam76]

Pour récupérer l'imprimante par défaut d'un poste, A partir d'une application du poste en .net, le code suivant fonctionne :

Code :

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

1
2
3
4
5
6
7
8
 
Imports System.Drawing.Printing
...
' Récupérer l'imprimante par défaut
Dim prtDoc As PrintDocument = New PrintDocument
Dim sPrinter As String = prtDoc.PrinterSettings.PrinterName
 
MessageBox.Show(sPrinter, "Imprimante par défaut")

Pour imprimer le pdf, vous pouvez passer par le composant d'Acrobat Reader

Pour cela, ajouter le composant graphique COM Adobe PDF Reader, placer ensuite celui ci sur une form en le nommant AcroPDF par exemple. Vous pouvez mettre la propriété "Visible" à false si vous ne voulez pas l'afficher.

Ensuite pour ouvrir et imprimer un document, voici un exemple :

Code :

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

1
2
3
4
5
6
 
' Ouvrir le fichier
AcroPDF.LoadFile("D:\\Premiers pas.pdf")
 
' Imprime toute les pages du document
AcroPDF.printAll()

Bien sur pour ce système il faut acrobat reader installé sur le poste

[BenMarcel]

Bonjour,
merci pour ta réponse
J'ai malheureusement un souci pour la ligne

Code :

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

Dim prtDoc As PrintDocument = New PrintDocument

Le PrintDocument n'est pas reconnu.

Faut-il ajouter un complétement ? j'ai bien fait le

Code :

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

1
2
 
Imports System.Drawing.Printing

Merci

[_Ez3kiel]

Faut-il ajouter un complétement ? j'ai bien fait le

Code :

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

1
2
 
Imports System.Drawing.Printing

Merci

Dans le doute ... Tu l'as bien placé au bon endroit ?

Code :

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

1
2
3
4
5
6
7
Imports System.Drawing.Printing
 
Public Class MaClasse
Public Sub MaSub
      Dim prtDoc As PrintDocument = New PrintDocument
End Sub
End Class

[BenMarcel]

Dans le doute ... Tu l'as bien placé au bon endroit ?

Code :

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

1
2
3
4
5
6
7
Imports System.Drawing.Printing
 
Public Class MaClasse
Public Sub MaSub
      Dim prtDoc As PrintDocument = New PrintDocument
End Sub
End Class

Oui il est bien au bon endroit avec les autres "Imports"

[infosam76]

Qu'utilises tu comme outil de développement et version du FrameWork ?