Stampa automatica etichette con Macro

[pgalliani]

Buona sera,
ho creato un foglio xls con alcuni campi, tra i quali il numero colli.
Dovrei provvedere a stampare automaticamente tante etichette quanti colli inseriti. Il tutto tramite un semplice bottone.
grazie per l'aiuto
pgalliani

[Tribuno]

Ciao pgalliani,

ammettendo di voler stampare il foglio che sto visualizzando e che il numero dei colli sia nella cella A1

Codice: Seleziona tutto

Sub Stampa()
ActiveWindow.SelectedSheets.PrintOut Copies:=Cells(1, 1).Value, Collate:=True
End Sub

da associare poi ad un pulsante.

Ciao
Tribuno

[pgalliani]

Grazie Tribuno,
funziona perfettamente!
Ora, se posso osare, avrei necessità di capire come impostare il layount di stampa, vorrei posizionare le informazioni in punti ben precisi dell'etichetta (perchè è prestampata) e, vorrei che non stampasse un'etichetta per foglio, ma una is seguito all'altra. Utilizzo una oki microline 3320.
grazie
pgalliani

[Tribuno]

Non conoscendo le tue esigenze non posso darti delle indicazioni precise. Io agirei in questo modo:
1) creo un nuovo foglio (es. St_Etichette)
2) faccio dei collegamenti con il foglio dove inserisco i miei dati (es. azienda, indirizzo, data, n. colli, ecc.)
3) il nuovo foglio lo imposto in base alla mia etichetta (File--->Imposta pagina)
4) il pulsante abbinato alla stampa la associo ad una macro tipo

Codice: Seleziona tutto

     Sub Stampa()
         Sheets("St_Etichette).PrintOut Copies:=Cells(1, 1).Value, Collate:=True '<<<=== da modificare Cells(1,1) in base al riferimento della cella dove inserisci il numero di colli e, quindi, di stampe da effettuare
     End Sub


Si potrebbe anche evitare di costruire un nuovo foglio, allora sarebbe necessario modificare le impostazioni della pagina del tuo foglio originario.

Il punto 2 potrebbe essere anche evitato se, nella macro del punto 4 inserisco tutte le istruzioni che mi copiano i campi necessario dal foglio originario al nuovo foglio.

Visto, le soluzioni sono varie, bisogna provare e riprovare. Un consiglio: prova ad utilizzare il registratore di macro e vedrai quali istruzioni sono create, molte macro si creano in questo modo.

Ciao
Tribuno

[pgalliani]

Ti ringrazio del tuo aiuto, ma causa la mia infinita ignoranza, ma non riesco a definire le dimensioni del foglio.(mi aspettavo un custom o personalizza che non c'è...)
La stampante di chi dovrà usare queste etichette è una OKI ML 3320 con etichette a modulo continuo e, nonstante mi sia scaricata i drivers aggiornati, non trovo la possibilità di definire la dimensione del foglio che dovrebbe corrispondere alla dimensione dell'etichetta (15cm larghezza - 10,5cm altezza).
Sono riuscita a copiare dal foglio 1 al foglio 2 i valori, ma, la posizione come la determino, in base alle celle ??
grazie ancora
pgalliani

[pgalliani]

Tribuno grazie mille!
Sono riuscita a fare quello che mi ero prefissata.
Devo dire che è la prima volta che mi rivolgo ad un forum, e sono estereffatta dalla prontezza e precisione nelle risposte.
grazie
a presto
pgalliani

[Anthony47]

Benvenuta nel forum a pgalliani, spero che ci frequenterai ancora.
E complimenti a Tribuno: sei tornato al momento giusto!

Ciao a tutti