{"id":2563,"date":"2016-06-25T09:50:56","date_gmt":"2016-06-25T14:50:56","guid":{"rendered":"http:\/\/itsoftware.com.co\/content\/?p=2563"},"modified":"2020-11-19T16:42:40","modified_gmt":"2020-11-19T21:42:40","slug":"macro-excel-para-imprimir-varios-archivos","status":"publish","type":"post","link":"https:\/\/itsoftware.com.co\/content\/macro-excel-para-imprimir-varios-archivos\/","title":{"rendered":"Macro Excel para imprimir varios archivos a la vez"},"content":{"rendered":"

En nuestros trabajos podemos llegar a necesitar imprimir a la vez muchos archivos de Excel, con varias hojas cada uno,  con la tediosa tarea de imprimirlos uno a uno. Afortunadamente existen las macros, y \u00e9ste es un ejemplo de una sencilla de una Macro Excel para imprimir muchos archivos a la vez.<\/p>\n

\"Macro<\/a>
Impresi\u00f3n Excel<\/figcaption><\/figure>\n

<\/p>\n

Esta macro se aloja en un archivo oculto de excel llamada Personal.xls. Este archivo viene por defecto en cualquier instalaci\u00f3n de Excel, permitiendo realizar acciones sobre todos los archivos que podamos tener abiertos en una sesi\u00f3n de trabajo.<\/p>\n

Esta es una macro muy sencilla, pero bastante \u00fatil para evitarnos tareas repetitivas:<\/p>\n

Sub imprima()\n\n' Macro para imprimir todos los archivos abiertos en Excel\n\n   Dim pregunta As Integer\n\n   Dim n As Integer\n\n   If Not ActiveWindow Is Nothing Then\n\n       pregunta = MsgBox(\"\u00bfDesea Imprimir todas las hojas de todos los libros?\", vbQuestion Or vbYesNo, \"Imprimir todo\")\n\n       If pregunta = 6 Then\n\n             For n = 1 To Windows.Count\n\n                 If (UCase(Windows(n).Caption) <> \"PERSONAL.XLS\") Then\n\n                     Windows(n).Activate\n\n                     ActiveWorkbook.PrintOut Copies:=1, Collate:=True\n\n                 End If\n\n             Next\n\n         End If\n\n   End If\n\nEnd Sub<\/pre>\n
Una vez instalada en el archivo Personal.xls, podemos llamarla por medio de alguna combinaci\u00f3n de teclas como CTRL + SHIFT + P, o con un bot\u00f3n en la primera hoja de este archivo.<\/p>\n
En resumen, esta macro Excel para imprimir, se encarga de recorrer todos los archivos abiertos, uno a uno, excepto el archivo de macros Personal.xls, y para cada uno de ellos env\u00eda una copia de todas las hojas a la impresora predeterminada.<\/p>\n
Tambi\u00e9n te puede interesar leer Encontrar datos repetidos en una tabla de Excel o de una base de datos<\/a> <\/em><\/p><\/blockquote>\n
Esta macro Excel para imprimir puede ser modificada no s\u00f3lo para este prop\u00f3sito, el hecho de recorrer todos los archivos abiertos, permite hacer otras automatizaciones sobre muchos archivos a la vez, lo que nos permite mejorar la eficiencia en nuestras actividades, por ejemplo en la b\u00fasqueda de datos en muchos archivos a la vez.<\/p>\n
Si deseas mayor informaci\u00f3n de c\u00f3mo hacer este tipo de tareas con macros vis\u00edtanos en ITSoftware.com.co<\/a><\/p>\n
Si te ha gustado este art\u00edculo, por favor no te olvides de compartirlo en las redes sociales.  Thks  \ud83d\ude42<\/h3>\n","protected":false},"excerpt":{"rendered":"
En nuestros trabajos podemos llegar a necesitar imprimir a la vez muchos archivos de Excel, con varias hojas cada uno,  con la tediosa tarea de imprimirlos uno a uno. Afortunadamente existen las macros,[…]<\/p>\n","protected":false},"author":1,"featured_media":8681,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[230,229],"tags":[717,716,715,713,714,727,718],"class_list":["post-2563","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-macros-2","category-ms-office","tag-impresion-excel","tag-impresion-hojas-excel","tag-impresion-rapida","tag-macro-excel","tag-macro-impresion","tag-macro-para-imprimir","tag-macro-vba"],"aioseo_notices":[],"jetpack_featured_media_url":"https:\/\/itsoftware.com.co\/content\/wp-content\/uploads\/2016\/06\/impresion-excel-1.png","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/posts\/2563","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/comments?post=2563"}],"version-history":[{"count":0,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/posts\/2563\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/media\/8681"}],"wp:attachment":[{"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/media?parent=2563"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/categories?post=2563"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/tags?post=2563"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}