> Tous les forums > Forum Bureautique
 Imprimante par défaut sur l'icone dans Excel
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
fabrice59
  Posté le 10/07/2008 @ 12:42 
Aller en bas de la page 
Petit astucien

Bonjour,

Dans excel, nous avons dans la barre de tache un icone imprimante qui reprend l'imprimante par défaut de XP.

Je voudrai mettre un autre icone à côté et associer celui-ci avec une autre imprimante, comment je peux faire ?

Merci

Publicité
Paulus
 Posté le 10/07/2008 à 16:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

De ton explication, je te rappelle qu'il est possible de faire plus simple. Dans la commande "Imprimer" (chemin Fichier\Imprimer), dans le chapitre Imprimante, tu as à disposition une liste déroulante dans laquelle tu sélectionnes le choix de l'imprimante. Au préalable faut-il encore que ton système d'exploitation ait reconnu ton parc.

A +



Modifié par Paulus le 10/07/2008 16:48
fabrice59
 Posté le 11/07/2008 à 07:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Oui, mais je voudrai juste deux icones avec chacun l'association d'une imprimante par défaut

A+

D-D-Du-06
 Posté le 11/07/2008 à 13:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

il faut juste enregistrer une macro comme celle ci-dessous. Ensuite ajouter un bouton à tes barres d'outils en lui attribuant la macro.

_______________________________________

Sub imprim()
'
' imprim Macro
' Macro enregistrée le 11/07/2008 par ToTo
'

'
Application.ActivePrinter = "Microsoft XPS Document Writer sur Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Microsoft XPS Document Writer sur Ne02:", Collate:=True
Application.ActivePrinter = "PDFCreator sur Ne00:"
End Sub

__________________________________

A toi de mettre les noms d'imprimantes:

Microsoft XPS Document Writer sur Ne02 à la place l'imprimante ponctuelle

PDFCreator sur Ne00 à la place l'imprimante par défaut.

Voilà...

A+

D D DU 06

Paulus
 Posté le 11/07/2008 à 15:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

RE,

J'entends bien ! je t'ai indiqué une procédure d'école.

Tu peux aussi glisser un racourci de chacune des imprimantes dans ta barre des tâches mais ce n'est pas une procédure référencée.

Chemin : Panneau Config\Imprimantes et Télécopies\clic droit - Créer un raccourci\dévérouiller barre tâches\Glisser raccourci\vérouiller barre tâches.

fabrice59
 Posté le 11/07/2008 à 16:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci pour vos réponses, je regarde tout ça demain et je vous tiens au courant.

Bonne soirée

Bérylion
 Posté le 11/07/2008 à 17:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien


Salut

une petite adaptation personnelle : http://cjoint.com/?hlrRkad7Pa

(d'après une idée originale de Môssieur L Longre)

enjoy...

[EDIT : attention, ça imprime directement... ; je ferai une nvlle version ce soir si j'ai le tps]



Modifié par Bérylion le 11/07/2008 20:10
Bérylion
 Posté le 12/07/2008 à 00:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

bon, j'ai bien mangé j'ai bien bu, et j'ai pas sommeil

le cjoint ci dessus n'est pas finalisé, je vous le conseille pas...

j'ai retouché un peu la bestiole en chiadant un peu (pour le sport) :

c'est devnu une xla qui insère un nouveau control (liste déroulante de toutes les imprimantes dispo) dans la barre d'outil standard

en choisissant une imprimante, on lance directement l'impression...

je vous balance la gaterie façon Galopin (à la tienne ) : clic!

et en cadeau bonus, puisque le lien ne restera pas, je vous donne le code (à coller dans un module standard) :

' sur la base d'une idée originale signée Laurent LONGRE
' les déclarations proviennent de lui sauf la dernière

Private Declare Function EnumPrintersA Lib "Winspool.drv" _
(ByVal flags As Long, ByVal name As String, ByVal Level As Long, _
pPrinterEnum As Long, ByVal cdBuf As Long, pcbNeeded As Long, _
pcReturned As Long) As Long

Private Declare Sub RtlMoveMemory Lib "Kernel32" (pDest As Long, _
ByVal pSource As Long, ByVal Length As Long)

Private Declare Function lstrlenA Lib "Kernel32" _
(ByVal lpString As Any) As Long

Private Declare Function lstrcpyA Lib "Kernel32" _
(ByVal lpString1 As String, ByVal lpString2 As Long) As Long

Dim idx%

Sub auto_open()

Dim nouvMenu As CommandBarComboBox
Set nouvMenu = Application.CommandBars(3).Controls.Add(Type:=msoControlComboBox, temporary:=True)

'début du code original
Dim PrinterEnum() As Long, Impr As String
Dim Needed As Long, Returned As Long, i As Integer
Dim Res As Long
EnumPrintersA 2, vbNullString, 2, 0, 0, Needed, 0
If Needed = 0 Then MsgBox "Erreur", vbCritical: Exit Sub
ReDim PrinterEnum(Needed / 4)
If EnumPrintersA(2, vbNullString, 2, PrinterEnum(0), Needed, _
Needed, Returned) = 0 Then MsgBox "Erreur", vbCritical: Exit Sub
For i = 1 To Returned * 21 Step 21
Impr = Space$(lstrlenA(PrinterEnum(i)))
lstrcpyA Impr, PrinterEnum(i)
If PrinterEnum(i + 6) Then _
RtlMoveMemory Res, PrinterEnum(i + 6) + 58, 2
'légère modif ci-dessous
'MsgBox "Imprimante : " & Impr & vbCr & vbCr & "Résolution : " _
& IIf(PrinterEnum(I + 6), Res, "Inconnue")
nouvMenu.AddItem Impr
Next i
'fin du code original ; prévu pour donner également la résolution d'impression
With nouvMenu
.OnAction = "imprime"
.Text = "Choisissez une imprimante"
.Width = 155
.DropDownWidth = -1
idx = .Index
End With
End Sub

Sub imprime()
On Error GoTo compteur
Dim i%, j%
ActivePrinter = Application.CommandBars(3).Controls(idx).List(Application.CommandBars(3).Controls(idx).ListIndex) & " sur Ne" & i & j & ":"
ActiveWorkbook.Windows(1).SelectedSheets.PrintOut
Exit Sub
compteur:
If j = 9 Then
i = i + 1: j = 0
Else
j = j + 1
End If
If i = 100 Then Exit Sub
Resume
End Sub

fabrice59
 Posté le 26/09/2008 à 13:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Je me permet de relancer mon sujet car je n'ai pas résolu mon problème.

Lorsque je fais ce que D D DU 06 me dit j'ai une erreur 400 qui s'affiche.

Pouvez vous m'aider.

Merci

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
779,99 €Carte Graphique MSI Geforce RTX 3070TI Ventus 3X 8G LHR à 779,99 €
Valable jusqu'au 25 Mai

La baisse des cartes graphiques se poursuit doucement avec une bonne affaire chez Grosbill qui propose la MSI Geforce RTX 3070TI Ventus 3X 8G LHR à 779,99 € avec le code NVIDIA40 alors qu'on la trouve ailleurs à partir de 879,95 €.


> Voir l'offre
153,26 €LEGO 10274 Creator Expert ECTO-1 SOS Fantômes à 153,26 € livré
Valable jusqu'au 26 Mai

Amazon Allemagne fait une promotion sur le LEGO 10274 Creator Expert ECTO-1 SOS Fantômes qui passe à 144,19 € (avec la TVA ajustée). Comptez 9,07 € pour la livraison en France soit un total de 153,26 € livré au lieu de 199,99 €. Idéal pour les fans de SOS Fantômes et les passionnés de LEGO, ce modèle ECTO propose des heures de plaisir et une expérience de construction enrichissante pour les adultes. Le véhicule ECTO-1, qui mesure plus de 22,5 cm de haut, 47 cm de long et 16,5 cm de large, déborde de détails authentiques. Le set comporte 2352 pièces.

Vous pouvez utiliser votre compte Amazon FR sur Amazon DE. Pas de douane.


> Voir l'offre
135,69 €Kit de 32 Go (2x16 Go) de mémoire DDR4 Corsair Vengeance RGB Pro SL 3600 MHz à 135,69 € livré
Valable jusqu'au 26 Mai

Amazon Allemagne fait une promotion sur le kit de 32 Go (2x16 Go) de mémoire DDR4 Corsair Vengeance RGB Pro SL 3600 MT/s CL18 à 130,99 €. Comptez 4,70 € pour la livraison en France soit un total de 135,69 € livré alors qu'on le trouve ailleurs autour de 170 €. Vous pourrez personnaliser la palette de couleurs directement depuis le logiciel Corsair iCU.


> Voir l'offre

Sujets relatifs
Police par défaut dans Excel
Icône de copier/coler dans Excel
inserer l'icone imprimante dans mon document
2 pages par feuille dans macro excel
Changement dans Excel 2010 ?
case à cocher dans cellule Excel 2010
Excel 2007 Copier/Coller d’une feuille à l’autre Dans un même classeur.
Creation d' une boucle macro dans fichier EXCEL pour impression
Relier des choix à des cellules dans excel
Largeur Hauteur colonnes en mm dans Excel
Plus de sujets relatifs à Imprimante par défaut sur l''icone dans Excel
 > Tous les forums > Forum Bureautique