Discussion :

[lebeniste]

cette macro fonctionne mais je n'ai pas le choix de l'imprimante ?????

on ajoute quoi si on veux avoir la boite de choix des imprimante ????
je suis tout perdu

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub IMPRIM()
'
' IMPRIM Macro
' Macro enregistrée le 2008-03-28 par André
'
 
'
    Sheets(Array("CLIENT")).Select
    Sheets("CLIENT").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Range("G16").Select
End Sub

est-ce possible de faire une copie avec pdf et garder en dossier et ensuite imprimer sur une feuille ????


merci

[Gorfael]

Salut lebeniste et le forum

cette macro fonctionne mais je n'ai pas le choix de l'imprimante ?????

Passe par une macro apprentissage(outils>>Macro>>Nouvelle macro). En sélectionnant tes imprimantes, tu auras la syntaxe pour chacunes.

est-ce possible de faire une copie avec pdf et garder en dossier et ensuite imprimer sur une feuille ????

J'utilise PDFCreator, comme une imprimante, mais je ne sais pas choisir le dossier.
A+

[Antoniom]

Hello,

Me permets de m'immiscer..

Essaye ceci, place-le avant ActiveWindow...

Code :

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

Application.Dialogs(XlDialogPrint).Show

Peut-être c'est ce que tu veux.


OUPS : Salut Gorfael et merci pour les explications au fait

Cdt, Anto.

[lebeniste]

merci
voici le code
il choisi la cellule pour renommer le dossier et il imprime en pdf et ferme le classeur.

il me rest a faire reouvrir le dernier classeur classeur afin que mon no de facture se regenere seul

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
19
20
21
Sub SAVEETIMPRIMANTEPDF()
 
 
 
Dim chemin As String, fichier As String
chemin = ThisWorkbook.Path
fichier = chemin & "\" & Range("f8") & ".xls"
ActiveWorkbook.SaveAs Filename:=fichier
Range("c9").Select
Application.ActivePrinter = "doPDF v6 sur DOP6:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "doPDF v6 sur DOP6:"
 
    Selection.ClearContents
Range("a21:b44").Select
    Selection.ClearContents
    Range("e10").Select
 
    ActiveWorkbook.Close True
 
End Sub

[lebeniste]

merci de cette option aussi
ca fonctionne tres bien , et m'apporte plus de possibilité
merci encore