Risultati da 1 a 10 di 10

Discussione: Macro per CAMBIARE colore alla pagina per stamparla?



  1. #1
    L'avatar di corfurio
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    brescia
    Età
    28
    Messaggi
    121
    Versione Office
    2007
    Likes ricevuti
    1

    Macro per CAMBIARE colore alla pagina per stamparla?

    Ciao a tutti,
    Ho recentemente ultimato un file che utilizzo per lavoro, passandoci sopra molte ore al giorno, ho utilizzato colori scuri come sfondo. Questo diventa un problema quando voglio stampare qualcosa, siccome utilizzerei troppo toner.
    Sareste così gentili da dirmi che alternative posso utilizzare, io ho pensato ad una macro suddivisa per esempio in 2 CELLE.
    CELLA 1 = "STM" //STAMPA
    CELLA 2 = "GDA" //GUARDA
    cosi ogni volta che voglio stampare qualcosa mi basta premere quel tasto per far assumere al foglio1 la tonalità nero su bianco.
    Spero sia possibile, allego il file con le due celle già create e bloccate in cima alla pagina.

    Questo è un' altro piccolo problema legato alla mia incompetenza, sempre nel foglio che ho caricato, in cima vedrete una serie di numeri da 1 a 15, sono le strutture che ospitano i dati, bene, se clicco su questi numeri avendo assegnato ad ogni cella delle struttura un nome, cliccando sul numero il foglio mi scorre fino ad arrivare a quella posizione voluta, bene, fino a qui nessun problema, in PARTE AI NUMERI cè un testo (con lo fondo LIME), quella dicitura che prende il nome da un elenco a discesa, mi piacerebbe che si cambiasse automaticamente, in base al TASTO CHE PREMO.
    Es: premo tasto 5, il testo mi cerca la dicitura della posizione nella struttura 5, ecc ecc, premetto che l' elenco a discesa NON è fondamentale, anzi, io l' ho messo per il momento intanto per tamponare questa problematica.

    Grazie anticipatamente a tutti
    Saluti
    File Allegati File Allegati

  2. #2

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6795
    Versione Office
    2013
    Likes ricevuti
    718
    Likes dati
    164

    Re: Macro per CAMBIARE colore alla pagina per stamparla?

    Ciao Corfurio

    Potresti usarle la procedura evento Workbook_BeforePrint dove le istruzioni contenute al suo interno saranno eseguite quando si manda in stampa la cartella di lavoro

    Codice: 
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
    ActiveSheet.Cells.Interior.ColorIndex = xlNone
    ....... istruzioni di spampa
    ActiveSheet.Cells.Interior.ColorIndex = colore precedente (qui bisogna mettere il codice del colore)
    End Sub
    Questa macro ti toglie il colore alle celle del foglio attivo e dopo la stampa ripristina il colore precedente

    Ovviamente andrà cambiato anche il colore del font che se è bianco risulterà invisibile.

    Ovvio che è solo uno spunto.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  3. #3

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Macro per CAMBIARE colore alla pagina per stamparla?

    Oppure basta "Imposta pagina" / "Foglio" / "Bianco e nero"

    Così la stampa sarà sempre bianco e nero indipendentemente dai colori del foglio

  4. #4
    L'avatar di corfurio
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    brescia
    Età
    28
    Messaggi
    121
    Versione Office
    2007
    Likes ricevuti
    1

    Re: Macro per CAMBIARE colore alla pagina per stamparla?

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Oppure basta "Imposta pagina" / "Foglio" / "Bianco e nero"

    Così la stampa sarà sempre bianco e nero indipendentemente dai colori del foglio
    Grazie per gli spunti, andare nelle impostazioni ogni volta benchè sia una buona idea nel mio caso porta via troppo tempo, preferirei una soluzione a click di mouse.
    L' idea della macro è ottima, peccato che non sappia come crearla o in questo caso copiarla ed eventualmente associarla a qualcosa..
    Avendo fatto le due celle da utilizzare nel mio foglio se inseriamo questa macro in STM, io cliccandoci sopra rendo il foglio bianco esatto? ma questo effetto quanto dura? mi spiego, come fa excel a sapere che io stampo se clicco su quella cella, se poi non stampo cosa succede?
    In merito al colore del font bhe si, ho parti bianche potremmo mettere di default il nero su tutto il font.

    Per quanto riguarda l' associazione del nome cliccando sui numeri, sapete darmi un indicazione, magari e sufficiente una formula, io ho cercato ma non riesco a capire cosa mi serve nello specifico.

    GRAZIE!!!

  5. #5

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Macro per CAMBIARE colore alla pagina per stamparla?

    Citazione Originariamente Scritto da corfurio Visualizza Messaggio
    Grazie per gli spunti, andare nelle impostazioni ogni volta benchè sia una buona idea nel mio caso porta via troppo tempo, preferirei una soluzione a click di mouse.[...]
    Ma non bisogna cambiare le impostazioni ogni volta che si stampa, basta una volta!

  6. #6
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    812
    Versione Office
    2016 64bit
    Likes ricevuti
    147
    Likes dati
    53

    Re: Macro per CAMBIARE colore alla pagina per stamparla?

    Per le stampe in B/N solitamente metto nel modulo "ThisWorkbook/Questa cartella di lavoro" questo codice che altro non fa che mettere insieme i suggerimenti di alfrimpa e Rubik72:
    Codice: 
    Option Explicit
    
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
        
        ActiveSheet.PageSetup.BlackAndWhite = True
    
    End Sub

  7. #7
    L'avatar di corfurio
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    brescia
    Età
    28
    Messaggi
    121
    Versione Office
    2007
    Likes ricevuti
    1

    Re: Macro per CAMBIARE colore alla pagina per stamparla?

    Citazione Originariamente Scritto da rollis13 Visualizza Messaggio
    Per le stampe in B/N solitamente metto nel modulo "ThisWorkbook/Questa cartella di lavoro" questo codice che altro non fa che mettere insieme i suggerimenti di alfrimpa e Rubik72:
    Codice: 
    Option Explicit
    
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
        
        ActiveSheet.PageSetup.BlackAndWhite = True
    
    End Sub

    Grazie a tutti!! Grazie Rollis, fortunatamente sono riuscito senza intoppi a copiare il codice, ho già fatto una stampata di prova, tutto perfetto... magnifico!!!
    Sapete dirmi se devo aprire un' altro post, per quanto riguarda l' altra domanda? L' messa di seguito perchè è più che altro solo una formuletta credo; In pratico se clicco su una cella, un' altra cella deva prendere un "dato nome" preso da una cella che gli abbiamo detto.

    GRAZIE, buona serata

  8. #8
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    812
    Versione Office
    2016 64bit
    Likes ricevuti
    147
    Likes dati
    53

    Re: Macro per CAMBIARE colore alla pagina per stamparla?

    Al posto dell'attuale menu a tendina in Y1 potresti sfruttare questa macro da mettere nel modulo vba del Foglio1 che esegue un Cerca.Vert nella tabella in BQ29:BR43 in base al valore delle cella cliccata in J1:X1.
    Codice: 
    Option Explicit
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
        'If Selection.Cells.Count > 1 Then Exit Sub                                      'attivare per evitare selezioni multiple
        If Intersect(Target, Range("J1:X1")) Is Nothing Then Exit Sub                   'interrompi macro se siamo fuori range
        Range("Y1") = Application.VLookup(Target.Value, Range("BQ29:BR43"), 2, False)   'esegui un Cerca.Vert
    
    End Sub

  9. I seguenti utenti hanno dato un "Like"


  10. #9
    L'avatar di corfurio
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    brescia
    Età
    28
    Messaggi
    121
    Versione Office
    2007
    Likes ricevuti
    1

    Re: Macro per CAMBIARE colore alla pagina per stamparla?

    Grande Rollis, è fenomenale, ti ringrazio davvero moltissimo.. non sai come mi aiuta avere quest' ordine... grazie!!!!

  11. #10
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    812
    Versione Office
    2016 64bit
    Likes ricevuti
    147
    Likes dati
    53

    Re: Macro per CAMBIARE colore alla pagina per stamparla?

    Prego, e buon proseguimento con il progetto .

Discussioni Simili

  1. [Risolto] Cambiare colore a parte di testo
    Di *Giuseppe* nel forum Domande su Excel in generale
    Risposte: 16
    Ultimo Messaggio: 18/03/17, 00:07
  2. [Risolto] Formattazione condizionale per cambiare colore testo
    Di sowhatt nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 07/03/17, 00:11
  3. [Risolto] Adatta alla pagina
    Di Chiarpato nel forum Domande sul Microsoft Word
    Risposte: 4
    Ultimo Messaggio: 27/11/16, 16:09
  4. Cambiare colore delle sfondo a puilsante (controllo modulo)
    Di alfrimpa nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 05/10/16, 18:37
  5. cambiare colore del CommandButton al clik
    Di principiante nel forum Domande su Excel VBA e MACRO
    Risposte: 21
    Ultimo Messaggio: 01/05/16, 01:34

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •