n° 185
Maggio/Giugno 2013
Maggio 18, 2013, 06:55:41 pm *
Benvenuto! Accedi o registrati.
Hai dimenticato l'e-mail di attivazione?

Accesso con nome utente, password e durata della sessione
Notizia:
 
   Indice   Linux Windows Techassistance Gameassistance videogame hardware Aiuto Ricerca Agenda Downloads Accedi Registrati  

* Messaggi recenti
Messaggi recenti
Pagine: [1]   Vai giù
  Stampa  
Autore Discussione: [VBA] Stampa selettiva  (Letto 7982 volte)
0 utenti e 1 Utente non registrato stanno visualizzando questa discussione.
Al_adin
Newbie
*

Karma: +0/-2
Scollegato Scollegato

Messaggi: 7


Mostra profilo E-mail
« inserita:: Maggio 24, 2012, 11:55:06 am »

Stampa selettiva
Ciao a tutti, ho creato una tabella con tre colonne in Word. Nella prima colonna le celle contengono Oggetti, nella seconda e nella terza colonna Quantità.

  Oggetti -----Quantità iniziale -------Quantità oggi
    Mele ----------- 5 --------------------1
   Arance ----------3 --------------------2
 
Ecco il mio problema: Gli “Oggetti” non cambiano, le “Quantità” sì. Ho bisogno di stampare la tabella in due momenti diversi. In un primo momento stampo la tabella che conterrà solo i nomi e la “Quantità iniziale”. In un secondo momento devo aggiungere alla tabella le “Quantità oggi”. Ho la necessità di usare lo stesso foglio di carta usato in precedenza per la stampa, ma così facendo ristampo l’intera tabella sull’originale creando un documento illeggibile. Mi chiedo se sia possibile, tramite VBA, “dire” alla stampante di non ristampare la struttura della tabella, ma solo le quantità all’interno della seconda colonna. Si tratta insomma di mascherare, durante la seconda stampa, la struttura della tabella, i titoli delle colonne e le quantità iniziali e stampare solo ed esclusivamente le cifre della seconda colonna. Ho creato un form con alcune caselle di testo che mi permettono di inserire le quantità e di copiarle, grazie ad un pulsante, nella tabella e poi stampo con Word, ma non riesco a capire se esista un modo per fare ciò che ho spiegato.
 
Codice:
Private Sub CMDQT_Click()     
Dim Quant(2) As Integer
Quant(1) = TextBox1.Text
Quant(2) = Textbox2.text
With ActiveDocument.Tables(1).Cell(Row:=1, Column:=2).Range   
 .Delete
   .InsertAfter Text:=Quant(1)
        End With
End Sub

Grazie
Registrato
bertolottipf
Full Member
***

Karma: +4/-4
Scollegato Scollegato

Messaggi: 320


Mostra profilo E-mail
« Risposta #1 inserita:: Maggio 25, 2012, 05:26:40 pm »

Stampa unione non ti serve?
Registrato
Al_adin
Newbie
*

Karma: +0/-2
Scollegato Scollegato

Messaggi: 7


Mostra profilo E-mail
« Risposta #2 inserita:: Maggio 25, 2012, 08:43:29 pm »

No, devo stampare solo il contenuto delle celle della tabella senza stamparne la struttura, cioè le linee che formano la tabella perchè uso un unico foglio di carta, stampato in due tempi diversi.

Con questo codice riesco a stampare tutta la pagina

Codice:
ActiveDocument.PrintOut Range:=wdPrintCurrentPage


ma ricalca la stampa precedente.



Registrato
bertolottipf
Full Member
***

Karma: +4/-4
Scollegato Scollegato

Messaggi: 320


Mostra profilo E-mail
« Risposta #3 inserita:: Maggio 25, 2012, 08:58:41 pm »

Non so aiutarti Triste
Registrato
Al_adin
Newbie
*

Karma: +0/-2
Scollegato Scollegato

Messaggi: 7


Mostra profilo E-mail
« Risposta #4 inserita:: Maggio 26, 2012, 08:12:20 pm »

Grazie lo stesso. Ho fatto dei progressi, avevo probabilmente impostato male il problema. Ora sono arrivato a questa soluzione, non definitiva:

con questo codice
Codice:
ActiveDocument.Tables(2).Columns(3).Select
        ActiveDocument.PrintOut Range:=wdPrintSelection


riesco a stampare una selezione della pagina: solo la tabella. In realtà credevo che il codice stampasse solo i contenuti delle celle della 3 colonna, che è ciò che a me serve, ma non è così, probabilmente c'è qualcosa di sbagliato nel codice, ma non riesco a capire cosa.

Help me please
Registrato
Pagine: [1]   Vai su
  Stampa  
 
Vai a:  

Copyright © 2011 Edizioni Master SpA. p.iva : 02105820787

Tutti i diritti di proprietà letteraria e artistica riservati. - Privacy



Links to Page