Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

stampare piu fogli dello stesso file

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

stampare piu fogli dello stesso file

Postdi raimea » 10/07/10 17:40

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
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: stampare piu fogli dello stesso file

Postdi Anthony47 » 10/07/10 23:03

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

stampare piu fogli dello stesso file

Postdi raimea » 11/07/10 07:11

:eeh:
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. :roll:
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago

Re: stampare piu fogli dello stesso file

Postdi Anthony47 » 11/07/10 07:53

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: stampare piu fogli dello stesso file

Postdi raimea » 11/07/10 08:23

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

Immagine

sicuramente ho scritto nel posto / nel modo errato
la nuova macro.
ma come la correggo ?
(non avrei minima idea )
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago

Re: stampare piu fogli dello stesso file

Postdi Anthony47 » 12/07/10 21:35

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: stampare piu fogli dello stesso file

Postdi raimea » 13/07/10 19:04

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
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1101
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "stampare piu fogli dello stesso file":


Chi c’è in linea

Visitano il forum: Nessuno e 9 ospiti