Fonction pour imprimer en VBA

Fermé

elise - 31 mai 2007 à 17:00
Vincent - 28 juin 2007 à 16:32

Bonjour,
sous VBA, j'ai actuellement une ligne de code qui me permet d'imprimer mon document :
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
L'imprimante utilisée est alors l'imprimante par défaut.

Comment faire pour afficher plutôt la fenêtre permettant à l'utilisateur de choisir son imprimante?

Merci d'avance,
Elise

A voir également:

Fonction pour imprimer en VBA
Fonction si et - Guide
Imprimer en a5 - Guide
Journal de naissance gratuit a imprimer - Télécharger - Histoire & Religion
Imprimer tableau excel sur une page - Guide
Parole de chanson francaise gratuite à imprimer - Télécharger - Vie quotidienne

1 réponse

Réponse 1 / 1

Vincent
28 juin 2007 à 16:32

Salut Elise, va faire un tour sur ce site

http://www.excelabo.net/excel/imprimervba.php

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

Remplir une cellule (texte) en fonction d'une autre (texte).

Bonjour à tous,

Je vais encore vous embêter aujourd'hui avec mon registre/rapport.

Ma question est simple (enfin je crois).
J'ai une liste de client :
- Autocars truc
- Bidule Autocars
- ... etc

J'ai une adresse pour chaque client (sous forme de liste) :
- Pont de Ernest
- Chemin Départemental 6
- ... etc

J'ai un code poste pour chaque client (sous forme de liste) :
- 99548
- ... etc

Ma question est : Si en D18 je récupère l'information du nom de mon client, je veux en D19 son adresse, en E20 son code postal et en M20 sa ville en fonction des listes d'ad...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Imprimer 4 feuilles A4 pour donner un effet A2

Bonjour,

Je dois imprimer un exposé sur une feuille A2, seulement mon imprimante n'imprime qu'en A4. Est il possible de programmer l'imprimante pour qu'elle imprime ma feuille en la coupant à l'impression à 4 pour que je puisse ensuite les coller entre elles pour former un papier A2 ?

Merci d'avance

Configuration: Windows 8 / Chrome 48.0.2564.103

--
Aude