[excel] Macro per stampa

[gdv88]

salve è da tempo ke non uso excel e dovrei fare un programmino in vb ke mi stampi una lista di dipendenti scritta in excel sapreste aiutarmi per cortesia ricordo poco e niente x favore

[ricky53]

Ciao,

Che utilizzo ne devi fare perchè dire "stampare una lista di dipendenti" è troppo generico.
Occorrono delle informazioni precise sui dati che vuoi trattare.

Prima devi disegnare quello che ti necessità, poi vedere la attività da fare sulla lista dei dipendenti ed infine passare alla stampa.

Attendo tue notizie in modo da poterti aiutare.

Ciao da Ricky53

[gdv88]

niente di particolare ho un file in excel con dei nomi, e tramite visual basic vorrei visualizzarlo ed infine stamparlo senza fare chisà cosa solo qst 2 operaz

[Anthony47]

Ma per questo basta il solo excel: apri il file, lanci la stampa con Menu /File /Stampa. Che cosa ci sfugge?

Ciao.

[gdv88]

lo so ke basta excel ma mi hanno kiesto di farlo in vb come test e dato ke è parekkio ke nn programmo nn ric quasi nulla x fav mi sapreste dire come farlo?

[gdv88]

io ho scritto così il codice per quello ke mi è venuto in mentema stampa di continuo e se metto nel for 1 o 2 per es. mi si blocca e m da l'errore di debug
come posso ottimizzare?

_______________________________________
Sub stampa()
Dim n As Integer
Dim c As Integer
n = Application.Workbooks.Count
For c = 1 To n
Application.Workbooks(c).PrintOut
Next c
End Sub
_________________________________________

[gdv88]

Ho risoloto (credo) usando questo comando nella macro semplice semplice

___________________
Sub stampa()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate _
:=True
End Sub
___________________
mi sapreste dire se è sbagliato o va bene datoke a funzionare funziona xkè mi è stato kiesto un codice che stampi una lista di dipendenti scritta in excel
ora io stesso dal excel creo una macro cn qsto codice e mela stampa
mi dite se va bene secondo voi grz è urgente scusate la rottura

[ricky53]

Ciao,
prima di tutto una cortesia non scrivere togliendo le vocali o utilizzando "x" e "+" --> risulta difficile la lettura e si perde il filo logico di quello che si legge.

Prova ad utilizzare il registratore di macro, dopo averlo attivato, sempre dal foglio excel, imposta l'area di stampa, i margini, l'intestazione ed il piè di pagina, e quant'altro ti può servire per ottenere una stampa valida, poi esegui la stampa e blocca il registratore di macro.
Vai a vedere che codice è stato scritto, (l'ultima istruzione sarà quella che hai riportato tu) sfrondalo un po' alcune impostazioni sono non necessarie - prova cercando di capire il significato di quanto scritto.
Infine esegui la macro.

Buone prove.

Ciao da Ricky53

[Anthony47]

IN AGGIUNTA ai suggerimenti di Ricky, potresti inserire anche questo codice per permettere all' utente di selezionare la stampante disponibile sul suo pc

Codice: Seleziona tutto

prisp = Application.Dialogs(xlDialogPrinterSetup).Show
If prisp = False Then
    MsgBox "Stampa cancellata"
    Exit Sub
End If


Mettila subito prima di
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True cancellando dal codice registrato un eventuale argomento "ActivePrinter:= nome-stampante"

Ciao.

[ricky53]

Ciao Anthony,

è vero, mancava la scelta della stampante.
Alla fine verrà fuori una bella macro che farà fare bella figura a gdv88.

Ciao da Ricky53