Bonjour,
Je cherche a imprimer une version papier et une version PDF en une fois de la sélection de ma feuille de calcul sans passer par la boite de dialogue, dans l'aide les arguments ne sont pas documentés quelqu'un aurait il une idée.
voici mon "code"
Sub MacroPrint()
'
s = Range("Q46").Value 'mon compteur pour incrémenter ma zone d'impression
ActiveSheet.PageSetup.PrintArea = "$A$1:$P" & 69 + s 'ma zone d'impression
Application.Dialogs(xlDialogPrint).Show 'impression papier
Application.Dialogs(xlDialogPrint).Show 'impression PDF
'les arguments dont je ne sais comment me servir : range_num, from, to, copies, draft, preview, print_what, color, feed, quality, y_resolution, selection, printer_text, print_to_file, collate
'autre essais avec PrintOut mais comment selectionner une autre imprimante (PDF) et lui donner un nom et un chemin ?
'Selection.PrintOut Copies:=1, ActivePrinter:=True, Preview:=True, Collate:=True
End Sub
pour l'imprimante PDF je souhaiterais définir le chemin et le nom du fichier + date
ps: j'ai utilisé la fonction recherche sur le forum mais je n'ai rien trouvé de pertinent à ce sujet
merci beaucoup
Je cherche a imprimer une version papier et une version PDF en une fois de la sélection de ma feuille de calcul sans passer par la boite de dialogue, dans l'aide les arguments ne sont pas documentés quelqu'un aurait il une idée.
voici mon "code"
Sub MacroPrint()
'
s = Range("Q46").Value 'mon compteur pour incrémenter ma zone d'impression
ActiveSheet.PageSetup.PrintArea = "$A$1:$P" & 69 + s 'ma zone d'impression
Application.Dialogs(xlDialogPrint).Show 'impression papier
Application.Dialogs(xlDialogPrint).Show 'impression PDF
'les arguments dont je ne sais comment me servir : range_num, from, to, copies, draft, preview, print_what, color, feed, quality, y_resolution, selection, printer_text, print_to_file, collate
'autre essais avec PrintOut mais comment selectionner une autre imprimante (PDF) et lui donner un nom et un chemin ?
'Selection.PrintOut Copies:=1, ActivePrinter:=True, Preview:=True, Collate:=True
End Sub
pour l'imprimante PDF je souhaiterais définir le chemin et le nom du fichier + date
ps: j'ai utilisé la fonction recherche sur le forum mais je n'ai rien trouvé de pertinent à ce sujet
merci beaucoup