Macro per stampare sfondo in due colori diversi

Question

Salve, avrei bisogno di creare una macro per un documento di trasporto dove stampa il foglio due volte, ciascuna copia deve avere come sfondo due colori diversi. Per i colori ho già creato delle macro in modo che cambi il colore dello sfondo ogni volta che clicco il pulsante. Non sono molto pratico e avrei bisogno di aiuto. Grazie

Answer 1

Ciao

Sono Sneha e sarei felice di aiutarti con la tua domanda. Ci scusiamo per l'inconveniente causato.

Per fare ciò, sarà necessario utilizzare Visual Basic, Applications Edition (VBA), che è un linguaggio di programmazione integrato in MS Excel. Non preoccuparti se non hai familiarità con VBA, ti guiderò attraverso il processo.

Innanzitutto, diamo un'occhiata al codice per la macro. Ecco un codice di esempio che puoi usare:

Sub PrintTransportDocument() Set the number of copies to 2 Copie ActiveSheet.PrintOut:=2

Set the background color of the first copy Replace "ColorMacro1" with the name of your macro that changes the background color Chiama ColorMacro1

Print the first copy Metodo ActiveSheet.PrintOut

Set the background color of the second copy Replace "ColorMacro2" with the name of your macro that changes the background color Chiama ColorMacro2

Print the second copy Metodo ActiveSheet.PrintOut Fine sub

Lasciate che vi spieghi cosa fa ogni riga del codice:

• La prima riga del codice imposta il numero di copie a 2, in modo da poter stampare due copie del documento.
• La riga successiva chiama la macro che cambia il colore di sfondo per la prima copia. Assicurati di sostituire "ColorMacro1" con il nome effettivo della macro che cambia il colore di sfondo.
• La terza riga stampa la prima copia del documento.
• La riga successiva chiama la macro che cambia il colore di sfondo per la seconda copia. Assicurati di sostituire "ColorMacro2" con il nome effettivo della macro che cambia il colore di sfondo.
• Infine, l'ultima riga stampa la seconda copia del documento.

Per utilizzare questa macro, attenersi alla seguente procedura:

1. Aprire il documento di trasporto in MS Excel.
2. Premere ALT + F11 per aprire l'editor VBA.
3. Fare clic con il pulsante destro del mouse sul nome della cartella di lavoro nella finestra Esplora progetti e scegliere Inserisci > modulo.
4. Copia e incolla il codice sopra nel modulo.
5. Salvare la cartella di lavoro come cartella di lavoro con attivazione macro (.xlsm).
6. Chiudere l'editor VBA e tornare al foglio di lavoro.
7. Fare clic su una cella per attivare il foglio di lavoro.
8. Fare clic sulla scheda Sviluppo nella barra multifunzione.
9. Fare clic sul pulsante "Inserisci" e selezionare un pulsante dalla sezione "Controlli modulo".
10. Disegna il pulsante sul tuo foglio di lavoro e assegna la macro "PrintTransportDocument" ad esso.
11. Salvare la cartella di lavoro.

Ora, ogni volta che si fa clic sul pulsante, la macro stamperà due copie del documento di trasporto, ognuna con un colore di sfondo diverso. Il primo colore verrà impostato chiamando la macro "ColorMacro1" e il secondo colore verrà impostato chiamando la macro "ColorMacro2". Assicurati di sostituire "ColorMacro1" e "ColorMacro2" con i nomi effettivi delle macro che cambiano il colore di sfondo.

Per ulteriori informazioni, fare riferimento alle seguenti risorse: -

1. Metodo Sheets.PrintOut (Excel) - https://learn.microsoft.com/office/vba/api/excel.sheets.printout
2. Avvio rapido: creare una macro - https://support.microsoft.com/office/quick-start-create-a-macro-741130ca-080d-49f5-9471-1e5fb3d581a8
3. Automatizza le attività con il registratore di macro - https://support.microsoft.com/office/automate-tasks-with-the-macro-recorder-974ef220-f716-4e01-b015-3ea70e64937b

Se hai altre domande o hai bisogno di assistenza con qualsiasi cosa, non esitare a farmelo sapere. Sarà mio piacere assistervi.

Migliori saluti Sneha

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.

Answer 2

Mi dà questo errore