stampa se

[Tequi]

Ciao a tutti,

ritorno per chiedere aiuto.

ho una tabella principale dove inserisco i dati che mi occorrono poi vengono riportati su altri fogli.

nella prima pagina,dove ho la tabella ho una piccola tabellina dove mi riporta il valore della tabella principale,la cella dove viene il valore se é maggiore di zero diventa verde altrimenti no,Il tutto riprende gli altri fogli.
Vorrei fare in modo che, una volta completato tutto cio' che devo inserire e quindi automaticamente la tabellina riporta i vari colori,con una macro vorrei fargli stampare i fogli con la cella colorata in verde(quindi con un valore).Altrimenti non stampare.

spero di essermi spiegato
Grazie

[Flash30005]

Ma non vorresti stampare il foglio/fogli o la cella?

E qual'è la cella che contiene il valore maggiore di zero?

[Tequi]

non riesco a caricare una foto!!!
por.....

[Flash30005]

Ma forse non serve alcuna foto

Dovresti solo dire (se ho capito bene)
hai n fogli con una particolare cella (es A1, è meglio che la specifichi tu quale è effettivamente) su ogni foglio
se questa cella ha un valore maggiore di zero, il foglio deve essere stampato altrimenti no.

E' così?

ciao

[Tequi]

Ho capito,
dunque ho 9 fogli e la cella interessata é,E32 chiamati rispettivamente-Johnsons-press-di-RCS-sole-tutto-stampa-financial, mentre un foglio é H27.

spero che cosi sia piu' utile.
Grazie per la pazienza Flash

[Anthony47]

Ancora non mi e' chiaro quali fogli e quali celle; comunque se usi una macro come questa potresti risolvere:

Codice: Seleziona tutto

Sub SelPrint()
mySh = Array("Foglio1", "Foglio3", "Foglio4")       '<<< 1 Quali fogli
myCell = Array("A2", "B2", "C3")                    '<<< 2 Quali celle
Application.ActivePrinter = "PDFCreator su Ne00:"    '<<< 3 Quale printer
For I = LBound(mySh) To UBound(mySh)
    Sheets(mySh(I)).Select
    If Range(myCell(I)).Value <> 0 Then
        ActiveSheet.PrintOut Copies:=1
    End If
Next I
End Sub


Uso:
Partendo dal tuo file excel
-Alt F11 per aprire l' editor delle macro
-Menu /inserisci /Modulo
-copia questo codice e inseriscilo nel frame di dx del file
-personalizza le istruzioni marcate <<<:
<<<1: elenco dei fogli da processare
<<<2: per ogni foglio, la cella corrispondente da sondare
<<<3: la stampante da usare
Torna su excel ed eventualmente associa questa macro a un pulsante:
-disegni il pulsante (trovi questa forma nella barra degli strumenti Moduli)
-assegni al pulsante la macro (durante la creazione del pulsante ti sara' chiesto espressamente quale macro assegnare)
In questo modo bastera' premere il pulsante per lanciare la macro.

Ciao, fai sapere

[Tequi]

ciao Antony,
ho messo quanto segue:
Sub SelPrint()
mySh = Array("Johnsons", "RCS", "PRESS-DI", "SOLE", "REPU", "STAMPA", "TUTTOSPORT", "FINANCIAL TIMES", "EL PAIS")
myCell = Array("E32", "E32", "E32", "E32", "E32", "E32", "E32", "E32", "H27")
Application.ActivePrinter = "Lexmark T632 su Ne00:"
For I = LBound(mySh) To UBound(mySh)
Sheets(mySh(I)).Select
If Range(myCell(I)).Value <> 0 Then

pero' mi da errore sulla linea della stampante
ActiveSheet.PrintOut Copies:=1
End If
Next I
End Sub

[Anthony47]

Con quale messaggio di errore?

[Tequi]

Errore di run-time 1004
Metodo`ActivePrinter`dell' oggetto_Application non riuscito

[Anthony47]

E questo ti succede sulla riga

Codice: Seleziona tutto

ActiveSheet.PrintOut Copies:=1


??

[Tequi]

E questo ti succede sulla riga

Codice: Seleziona tutto

ActiveSheet.PrintOut Copies:=1


??

No é questa stringa che viene evidenziata
Application.ActivePrinter = "LexMarkT632 su Ne00:"


con errore:

Errore di run-time`1004`:
MetodoÀctivePrinter dell' oggetto`_Application`non riuscito

[Anthony47]

Lo sapevo, ma guarda cosa avevi scritto prima...

Evidentemente la stampante non e' quella o sul tuo pc non si definisce cosi'...
Prova a registrare una macro mentre stampi su quella stampante e poi vedi il codice che deve essere usato.
Oppure aggiungi alla macro il codice per scegliere la stampante da usare: elimina la riga in cui imposti quella stampante e sostituiscile con queste righe

Codice: Seleziona tutto

'scegli printer
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
    MsgBox "Stampa Cancellata"
    Exit Sub
End If


Ciao

[Tequi]

Lo sapevo, ma guarda cosa avevi scritto prima...

Evidentemente la stampante non e' quella o sul tuo pc non si definisce cosi'...
Prova a registrare una macro mentre stampi su quella stampante e poi vedi il codice che deve essere usato.
Oppure aggiungi alla macro il codice per scegliere la stampante da usare: elimina la riga in cui imposti quella stampante e sostituiscile con queste righe

Codice: Seleziona tutto

'scegli printer
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
    MsgBox "Stampa Cancellata"
    Exit Sub
End If


Ciao

funziona grandissimo
non so come ringraziarti