Codi VBA per al botó d'impressió a Excel (5 exemples)

Hugh West

16-10-2023 Macros i amp; Excel VBA
  • Comparteix Això
Hugh West

Si podem configurar un botó d'impressió personalitzat al nostre full de treball Excel, pot ser molt fàcil d'utilitzar i estalviar temps per imprimir fulls. Si utilitzem Macros VBA , ho podem fer fàcilment. Per tant, aquest article us proporcionarà 5 macros senzilles per utilitzar el codi VBA per al botó d'impressió a Excel.

Descarregueu el quadern de pràctiques

Podeu descarregueu la plantilla d'Excel gratuïta des d'aquí i practiqueu pel vostre compte.

Codi VBA per crear un botó d'impressió.xlsm

5 exemples per utilitzar VBA Codi per al botó d'impressió a Excel

Primer anem a presentar-nos al nostre conjunt de dades que representa algunes vendes del venedor a diferents regions .

1. Utilitzeu el codi VBA per crear un botó d'impressió per al quadre de diàleg d'impressió a Excel

Primer, crearem un Botó d'impressió i després escriurem codis per a aquest.

Pasos:

  • Feu clic a com segueix: Desenvolupador >> Insereix >> Caixa de botons.

Poc després, obtindreu un signe més (+) al cursor .

  • Arrossegueu aquest cursor segons la mida del botó que vulgueu i, al cap d'una estona, un S'obrirà el quadre de diàleg anomenat Assigna una macro .

  • Doneu un nom i preme Nou .

Apareixerà una finestra VBA .

  • A continuació, escriviu el codis següents: 
5302
  • Ara torneu al vostre full .

Desglossament del codi

  • Aquí , vaig crear un procediment Sub , DialogBox .
  • Després vaig utilitzar Dialogs (xlDialogPrint).Show per obrir el Quadre de diàleg d'impressió .

Es crea el botó.

  • Feu clic amb el botó dret al botó i seleccioneu Edita text al menú contextual per canviar el nom del botó.

  • Més endavant, només escriviu el nom i feu clic a el vostre ratolí a qualsevol lloc fora del botó .

A continuació, premeu el Botó .

A continuació, obtindreu el quadre de diàleg Imprimeix . Si voleu, podeu Imprimir ara.

Si no teniu cap impressora en aquest moment, podeu Desar-la com a PDF . per a un ús posterior o per Imprimir més tard.

  • Ara premeu D'acord .

  • En aquest moment, només cal que doneu un nom i premeu Desa .

Aquí teniu el <1 imprès>PDF .

Llegir més: Com ajustar la configuració d'impressió a Excel (8 trucs adequats)

2. Utilitzeu el codi VBA per fer el botó d'impressió per al full actiu

Aquí, farem servir VBA per imprimir un actiu Full .

Passos:

  • Seguiu els dos primers passos de la primera secció per crear el botó i Assigna una macro .
  • Escriu un Nom de macro i premeu Nou .

Poc després, s'obrirà una finestra VBA .

  • A continuació escriviu els codis següents: 
4723
  • Més tard, torneu al

Desglossament del codi

  • Aquí, he creat un procediment Sub , ActiveSheet .
  • A continuació, s'utilitza PrintOut per seleccionar el full actiu i imprimir-lo .
  • Ara només prem el botó .

A S'obrirà el quadre de diàleg anomenat Desa la sortida d'impressió com a .

  • Afegiu un nom i premeu Desa .

A continuació, obtindreu el PDF imprès.

Podeu Canvieu fàcilment la impressora si la necessiteu.

  • Feu clic a a Fitxer al costat de la Inici

  • A continuació, seleccioneu l'opció Imprimeix i feu clic a al menú desplegable per seleccionar una Impressora .

Llegir més: Com imprimir tots els fulls a Excel (3 mètodes)

3. Apliqueu codi VBA per crear un botó d'impressió per a fulls seleccionats a Excel

Si voleu Imprimir fulls seleccionats específics, també és possible utilitzar VBA .

Passos:

  • Seguiu els dos primers passos de la primera secció per crear el botó i assigneu una macro .
  • A continuació, escriviu un Nom de macro i premeu Nou .

Poc després,s'obrirà una finestra VBA .

  • Més tard, escriviu els codis següents: 
6783

A continuació torneu al vostre full .

Desglossament del codi

  • Aquí, vaig crear un procediment Sub , Fulls seleccionats .
  • Després vaig fer servir ActiveWindow a seleccioneu el full de la finestra activa Excel .
  • A continuació, s'utilitza PrintOut per imprimir múltiples seleccionats fulls .
  • Ara seleccioneu fulls i premeu el botó d'impressió . He seleccionat dos fulls.

  • Doneu un nom per al PDF i premeu Desa .

El fitxer PDF té dues pàgines per als dos fulls .

Llegir més: Com imprimir fulls específics amb macro VBA a Excel (4 maneres)

Lectures similars:

  • Com imprimir un full d'Excel en mida A4 (4 maneres)
  • Com conservar Capçalera a Excel en imprimir (3 vies)
  • Excel VBA: com configurar l'àrea d'impressió de manera dinàmica (7 maneres)
  • Com imprimir Excel Full amb línies (3 maneres fàcils)
  • Com imprimir un gràfic a Excel (5 maneres)

4. Incrusta Excel VBA per crear un botó d'impressió per a un full específic amb l'interval seleccionat

Aquí, farem un Botó d'impressió per imprimir un seleccionat interval des d'un full específic .

Passos:

  • Seguiu el primerdos passos des de la primera secció per crear el botó i assignar una macro.
  • Escriu un Nom de macro i premeu Nou .

Poc després, s'obrirà una finestra VBA .

  • A continuació escriu els codis – 
9317
  • Més endavant, torneu al vostre full.

Desglossament del codi

  • Aquí vaig crear un procediment sub, SpecificSheetnRange .
  • A continuació, s'utilitza Amb la sentència per seleccionar a específic
  • A continuació, PrintArea = "B2:D11".PrintOut seleccionarà l' interval del full específic i l'imprimirà .
  • Ara només prem el Botó d'impressió .

  • Definiu un nom per a el PDF i premeu Desa .

És el full específic imprès .

Llegir més: Excel VBA: Configura l'àrea d'impressió per a diversos rangs (5 exemples)

5. Incrusta Excel VBA per crear un botó d'impressió per al full actiu amb l'interval seleccionat

A més, pots seleccionar un interval del full actiu i pots fer un Botó Imprimeix per imprimir-lo amb VBA .

Passos:

  • Seguiu els primer dos passos des de la primera secció per crear el botó i assignar una macro .
  • Més endavant, escriviu un nom de macro i premeu Nou .

Poc després, un VBAS'obrirà la finestra .

  • A la finestra VBA , escriviu els codis –
    • <14 següents> 
    7080
    • Després torneu al vostre full .

    Desglossament del codi

    • Aquí, vaig crear un procediment Sub , ActiveSheetnRange .
    • Després vaig utilitzar Rang(“B2:D11”).PrintOut per seleccionar un interval i imprimir.
    • Premeu el Botó d'impressió .

    • Doneu un nom i premeu Desa .

    A continuació, obtindreu el interval imprès .

    Llegir més: Botó Excel per imprimir fulls específics (amb passos senzills)

    Conclusió

    Espero que els procediments descrits anteriorment serà prou bo per utilitzar codi VBA per al botó d'impressió a Excel. No dubteu a fer qualsevol pregunta a la secció de comentaris i feu-me la vostra opinió.

Publicació anterior Com trobar l'equació d'una línia de tendència a Excel (3 maneres adequades)
Següent post Com utilitzar VLOOKUP si la cel·la conté una paraula dins de text a Excel

Hugh West és un entrenador i analista d'Excel molt experimentat amb més de 10 anys d'experiència en el sector. És llicenciat en Comptabilitat i Finances i Màster en Administració i Direcció d'Empreses. Hugh té una passió per l'ensenyament i ha desenvolupat un enfocament pedagògic únic que és fàcil de seguir i entendre. El seu coneixement expert d'Excel ha ajudat a milers d'estudiants i professionals de tot el món a millorar les seves habilitats i a destacar en les seves carreres. A través del seu bloc, Hugh comparteix els seus coneixements amb el món, oferint tutorials d'Excel gratuïts i formació en línia per ajudar les persones i les empreses a assolir tot el seu potencial.