stampare piu fogli dello stesso file

[raimea]

con i vostri consigli sono riuscito a far decidere su quale stampante lanciare la stampa.
questo mi e' molto utile x stamp su stamp virtuale che crea file .pdf.

Codice: Seleziona tutto

Sub stampa1()

SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
    MsgBox "Stampa Cancellata"
    Exit Sub
End If
'stampa il range impostato in s1
If [s1] <= 0 Then Exit Sub
    ActiveSheet.PageSetup.PrintArea = "$b$2:$s$" & 58 * [s1]
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   
    Range("d2").Select
End Sub

ora pero' sempre con lo stesso metodo vorrei poter
scrivere nella macro il nome dei fogli che voglio stampare
in modo da poter stampare anche i grafici.
come posso modif tale macro ?

inoltre oltre a scrivere il nome del foglio vorrei poter scrivere
x ogni fogli excell , anche gli estremi da stampare.

ringrazio in anticipo

http://rapidshare.com/files/406164952/Copia_di_luga.fibonacci.zip

[Anthony47]

Potresti usare un Inputbox per chiedere il nome del foglio da stampare e l' area, ad esempio

Codice: Seleziona tutto

Rispo = Application.InputBox("Quale Foglio vuoi stampare?")


Ti lascia nella variabile Rispo la stringa col nome del foglio; idem per la domanda sull' area.
Trovo pero' questa interfaccia poco flessibile, perche' viene chiesto all' utente di rispondere su cose che non vede.
Se hai confidenza con le userform potresti optare per una userform da aprire in modalita vbModeless, con due textbox per la scelta del Foglio e dell' area, prevedendo anche la possibilita' che l' utente scelga il foglio selezionandolo col suo tab e idem per l' area di stampa.

Ciao

[raimea]

ho inserito la stringa nella macro sopra ,
SI', mi chiede quale foglio voglio stampare,
ma quando lo seleziono mi da un errore tipo:
- verificare che le formule contengano rifer. validi, cartelle i lavoro, nomi di intervallo e celle-

dalla risposta di antony47, capisco che dovrei provare con le userform ma non ho confidenza.....
non saprei dove cominciare.

[Anthony47]

Non hai detto come hai combinato le istruzioni, in che momento capita l' errore e quale e' l' esatto messaggio di errore, quindi al momento posso solo pensare a una avversa congiunzione astrale...

Ciao

[raimea]

ho messo la nuova riga all'inizio della macro

Codice: Seleziona tutto

Sub stampa1()

Rispo = Application.InputBox("Quale Foglio vuoi stampare?")


SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
    MsgBox "Stampa Cancellata"
    Exit Sub
End If
'stampa il range impostato in s1
If [s1] <= 0 Then Exit Sub
    ActiveSheet.PageSetup.PrintArea = "$b$2:$s$" & 58 * [s1]
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   
    Range("d2").Select
End Sub

mi fa SI' scegliere il foglio ma poi mi da questo errore



sicuramente ho scritto nel posto / nel modo errato
la nuova macro.
ma come la correggo ?
(non avrei minima idea )

[Anthony47]

A spanne, il messaggio dice che il tuo file contiene formule senza riferimenti; quindi devi guardare il tuo file e correggerlo dove serve.
Per quanto riguarda la macro, una volta ottenuta nella variabile Rispo il nome del foglio dovresti usare quel valore per selezionare quel foglio; qualcosa come Sheets(Rispo).Select

Ciao.

[raimea]

mi sarebbe piaciuto fare come mi indicava antony47
ma non ci sono riuscito...

ho dovuto accontentarmi di questa macro che mi chiede la stampante
poi stampa 3 fogli diversi.

Codice: Seleziona tutto

Sub stampatutti()


SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
    MsgBox "Stampa Cancellata"
    Exit Sub
End If
'stampa il range impostato in s1
If [s1] <= 0 Then Exit Sub

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True
   
    Sheets("4-sempre-10€-base").Select
    ActiveSheet.PageSetup.PrintArea = "$b$2:$s$" & 58 * 1
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True
   
    Sheets("vincite -X scom").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True
   
   
    Sheets("1-luga.fibonacci-fogl.base").Select
    Range("c1").Select


End Sub