Astuces Excel
  1. Astuces Excel
  3. Impression régulière sur Adobe PDF à partir d'Excel, script pour obliger les files PDF à être enregistrés dans le path correct
Intereting Posts
Exécuter le code VBA à partir d'un triggersur externe? Création d'une table de reference générique: une collection est-elle la méthode appropriée? Perl – lignes vides lors de l'écriture de CSV à partir d'Excel Erreur "L'object ne supporte pas 'addEventListener' lors de l'import de données depuis le Web "Cette ligne appartient déjà à cette table" lors de l'ajout de données à une table à l'aide de POWERSHELL Comment puis-je réorganiser les valeurs dans deux colonnes dans Excel afin qu'elles soient toujours dans un ordre donné (ex: alphabétique) par rapport à l'autre? Choisissez la valeur de la feuille de trois excel et affichez-la dans une autre feuille à l'aide de macros Un moyen approprié de détecter # N / A dans .XLSX avec feuille de calcul Procédure stockée MySQL ou vue dynamic VBA avec Excel éliminant l'erreur humaine Qu'est-ce qui ne va pas avec cette syntaxe de la requête INSERT paramétrée? Code VBA – Copie de cellules d'une feuille à une autre en excellent état selon la condition d'appariement L'application Excel.exe ne se ferme pas lorsque vous l'utilisez Erreurs de troncature tentant d'importer depuis Excel Fonction IF pour vérifier plusieurs conditions sur la même plage

Impression régulière sur Adobe PDF à partir d'Excel, script pour obliger les files PDF à être enregistrés dans le path correct

Je travaille sur une série de files XLS dans Excel. Quand j'ai fini avec eux, j'ai besoin de les imprimer au format PDF afin qu'ils puissent être transmis à une fête à l'extérieur de mon cabinet.

J'ai enregistré une macro assez basique pour me permettre d'imprimer ces files avec le même réglage à chaque fois. Malheureusement, il ne fait pas tout ce dont j'ai besoin pour faire.

Fondamentalement, je souhaite que Adobe me request où le file doit être enregistré lorsqu'il est imprimé. Cela ne se déroule pas maintenant avec mon script. Si j'imprime manuellement et select les parameters "Demander de replace le file PDF existant" de la window properties de l'imprimante dans Excel, il me request toujours où le file doit être sauvegardé. Mon script ne prend pas cela, mais je ne suis pas sûr de ce qu'il faut append.

J'ai beaucoup de files à parcourir (et c'est une tâche qui se reproduira), donc plus tôt je ferais mieux de décrire.

Est-ce quelque chose que je peux aborder avec ma macro Excel, et si oui, quelqu'un peut-il me diriger dans la bonne direction? 

Sub PrintToAdobeRedactions() ' ' PrintToAdobeRedactions Macro ' Print redacted worksheets to Adobe with correct settings every time. ' ' Keyboard Shortcut: Ctrl+e ' Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "[Tab]" .RightHeader = "" .LeftFooter = "" .CenterFooter = "Page [Page]" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.75) .RightMargin = Application.InchesToPoints(0.75) .TopMargin = Application.InchesToPoints(1) .BottomMargin = Application.InchesToPoints(1) .HeaderMargin = Application.InchesToPoints(0.5) .FooterMargin = Application.InchesToPoints(0.5) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintSheetEnd .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperLetter .FirstPageNumber = xlAutomatic .Order = xlOverThenDown .BlackAndWhite = False .Zoom = 100 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = False .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With Application.PrintCommunication = True ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False End Sub

Pour save un PDF: 

 Sub SaveAsPDF() Dim SaveName as Ssortingng SaveName = InputBox("Save As File Name?") ThisWorkbook.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=Application.ActiveWorkbook.Path & Application.PathSeparator & SaveName & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub