Discussion :

[com-ace]

J'ai posté un message il y a un mois sur le choix d'imprimante en VBA
http://www.developpez.net/forums/vie...419866#1419866

Le lien ne marche plus.

Est ce normal ?
Y a t il un moyen de le récupérer ?

Merci de vos réponses

[Tofalu]

Si ton message n'a pas été suivi je pense que le responsable du delestage l'a supprimé. Il faut suivre les messages que l'on post sinon, voilà ce qui arrive.

As tu recherché si ton porblème n'a pas été recencé dans la FAQ depuis ?

[com-ace]

Le problème n'est pas recensé sur la FAQ. (Ou je n'est pas cherché au bon endroit ni très clairement sur le site Microsoft).

Je souhaite tout simplement gérer mes imprimantes à partir d'ACCESS.

1 - Pour choisir une imprimante spécifique impression ou pdf.
2 - Mettre en place des paramêtres particuliers

Je voudrais donc faire apparaître la fénêtre de dialogue.

J'avais réservé la réponse dans un coin et espérait y revenir

Merci de ton aide

[Tofalu]

Et au niveau des composant ActiveX, Microsoft Common Dialog

Code :

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

1
2
 
Me.CommonDialog1.ShowPrinter

[Demco]

Si ton message n'a pas été suivi je pense que le responsable du delestage l'a supprimé. Il faut suivre les messages que l'on post sinon, voilà ce qui arrive.

As tu recherché si ton porblème n'a pas été recencé dans la FAQ depuis ?

C'est celà même. Un sujet non résolu laissé sans réponse pendant plus de 15 jours est considéré comme abandonné.

[Keraccess]

Bonjour,

l'idée serait d'avoir un menu déroulant présentant à l'utilisateur la liste des imprimantes.
tu vas devoir travailler avec Application.Printer

ex:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
 
' Ajoute une zone de liste modifiable à un formulaire
' initialise sa propriété nom à lstPrinters
' placer ce code sur l'évènement chargement du formulaire
 
Dim prt As Printer
 
lstPrinters.RowSourceType = "Value List"
For each prt in Application.Printers
    lst.Printers.AddItem prt.DeviceName & " on " prt.Port
    Next prt
 
End Sub

Je ne sais pas si elle fonctionne, mais elle est tirée du livre
"Access en action" éditer chez O'REILLY.

bon courage

[Keraccess]

PS : Change ton titre pour remêttre ton post d'actualité

[com-ace]

CommonDialog ne fonctionne pas. "l'objet n'existe pas"

Je souhaite ouvrir la fenêtre imprimante.

Lors de la réponse perdue, quelqu'un me proposait une autre méthode.

Malheuresement je ne me souviens plus.

Merci de votre aide

[Faw]

Slt,

DoCmd.RunCommand acCmdPrint

8)

[Tofalu]

Ouais, fax, mais cela t'imprime l'objet en cours hors,com-ace veux juste modifier kles paramètres de ces imprimantes je crois.

[com-ace]

Exact, je souhaite la fenêtre Imprimante pour changer d'imprimante et entrer dans les propriétés des imprimantes.

Je pense qu'il y a un objet de la famille Application mais je ne le trouve pas.

Merci de votre aide

[Faw]

En fait il suffit de rendre le Report courant en l'ouvrant en Preview.
ça marche et ça prend bien les option choisies.
Maintenant C peut-être pas adapté à ton contexte...

Code :

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

1
2
DoCmd.OpenReport "Patients", acViewPreview
DoCmd.RunCommand acCmdPrint

8)

[Tofalu]

Et ma solution du commondialog, tu as essayé ?

[com-ace]

Je viens d'essayer la solution.
Cela ne marche pas car je n'est pas l'activeX.

Il ne reconnait pas la l'appel

Et au niveau des composant ActiveX, Microsoft Common Dialog

Code :

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

1
2
 
Me.CommonDialog1.ShowPrinter

L'autre solution marche mais ne me satisfait pas car je ne veux pas de l'état en apperçu.

Je souhaite lancer l'état en ViewNormal et que la fenêtre imprimante s'ouvre.

Je continue donc mes recherches.

Merci des idées éventuelles

[Faw]

Bonjour,
Keraccess: Ta piste est la bonne, je l'ai un peu creusée via l'aide access.
Je me suis permis aussi de corriger les fautes de frappe.
Remarque: Le prt.port dans le nom de l'imprimante provoque une erreur qd on veut affecter l'imprimante par défaut. Normal, le nom de la prt ne comporte pas le N° de port qui est une autre propriété.

On garde le même principe:
Un form avec une comboBox que l'on alimente avec les noms d'imprimantes existantes au chargement.
Puis sur AfterUpdate de la combo on change le nom de l'imprimante par
défaut et on lance l'impression.
ça a lair de fonctionner.
8)
Imprimante = Combobox des printers

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
Private Sub Form_Load()
 
Dim prt As Printer
 
Me.Imprimante.RowSourceType = "Value List"
For Each prt In Application.Printers
    Imprimante.AddItem prt.DeviceName 
    Next prt
 
End Sub
 
 
Private Sub Imprimante_AfterUpdate()
Dim prt As Printer
 
Application.Printer = Application.Printers(Me.Imprimante.Value)
Set prt = Application.Printers(Me.Imprimante.Value)
End Sub

Donc en gros Come-ace:
Ce qui lance ton impression devra maintenant ouvrir le form qui propose
la liste des imprimantes et une fois le choix fait (Fin de la 2ème Sub) tu mets ton OpenReport...acNormal.

selon ton contexte tu aura peut-etre à réinitialiser les paramètres.
G pas pu tester sur 2 prt physiques mais ma prt a une copie qui apparaît
ds la liste et en vérifiant ds la boite de dialogue windows la prt inscrite est bien celle que G sélectionnée.
Tiens nous au courant.

[com-ace]

Merci Faw.

Cela fonctionne.

J'ai donc crée un formulaire avec une liste et un bouton impression.
J'ouvre le formulaire avec en openArgs le nom de l'état.
Je charge la liste avec les imprimantes et recherche celle par défault que j'affiche de base dans la liste.

Avec l'impression, j'imprime avec l'imprimante que je souhaite.

Mais question subsidiaire (vous allez dire que je suis exigeant, mais enfin...), je recherche le moyen d'ouvrir la fenêtre de caractèristique de l'imprimante pour modifier les paramètres d'impression.

Car dans ce cas, on n'a pas accés à l'imprimante.

Hors, j'utilise des imprimantes avec ou sans marge et donc les états sont différents en fonction des imprimantes et je souhaiterais pouvoir le modifier ce paramêtre dans la fenêtre.

Merci de votre aide

Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Form Load()
Dim prt As Printer, StrDefaultPrinter As String
 
Me!Etat = Me.OpenArgs 'Etat à imprimer
 
StrDefaultPrinter = Application.Printer.DeviceName
Me.M1.RowSourceType = "Value List"
For Each prt In Application.Printers
    M1.AddItem prt.DeviceName
Next prt
Me!M1 = StrDefaultPrinter

Sur le bouton

Code :

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

1
2
3
4
5
 
Dim prt As Printer
Application.Printer = Application.Printers(Me.M1.Value)
Set prt = Application.Printers(Me.M1.Value)
DoCmd.OpenReport Me!Etat, acViewNormal, , Condition

La solution fonctionne, je suggère de la positionner dans la FAQ.

[Faw]

Slt,
de rien, c'est surtout Keraccess qui t'a mis sur les rails.
Pour les autres parametres l'aide access propose un lien office:
tu fais F1/Aide intuitive/tape imprimante/choisi la rubrique:Web:Modifier..
tout y est...

Tof' G pas pu tester ta soluce pour les mêmes raisons que Come-ace.

A+
8)

[stigma]

Pour résoudre mon problème, j'ai du fermer le form avant d'imprimer. C'est bizarre parce quil n'y avait pas de liaison entre les 2 et j'avais même mis l'état en modal.
Merci à tous

[Faw]

:

[stigma]

tu as raison de faire : parce que je n'ai pas compris pourquoi ça ne marchait pas correctement. J'utilise ce code sur d'autres applis et ça marche bien pourtant.