Pagina precedente | 1 | Pagina successiva
Facebook  

multipage e stampa

Ultimo Aggiornamento: 14/11/2018 16.23
Autore
Stampa | Notifica email    
Post: 86
Registrato il: 01/04/2016
Città: MILANO
Età: 16
Utente Junior
2003
OFFLINE
09/11/2018 11.12

Buongiorno a tutti,
chiedo il vs aiuto, nel file che allego, al commandb ho dato le istruzioni che se lo clicco e le combobobox o textbox non sono compilate mi da il messaggio di compilarle, se la page n. 2 non la compilo mi deve comunque stampare la la page1 compilata.
Conferenza stampa di presentazione del nuovo allenatore: Cristian Brocchiblog1912stampa24/10/2018 18.51 by Monza72
Controllo prima della stampastampa17/11/2018 15.45 by elioeco
Manuela Moreno supersexyTELEGIORNALISTE FANS FORU...39 pt.20/11/2018 16.08 by Maiuscolo
Post: 3.997
Registrato il: 21/06/2013
Città: NAPOLI
Età: 65
Utente Master
Excel 2013
OFFLINE
09/11/2018 11.31

Ciao Donatella

Non ho capito che cosa tu debba stampare.

La page dell'userform? O cos'altro?

Puoi essere più precisa?

Alfredo
Post: 86
Registrato il: 01/04/2016
Città: MILANO
Età: 16
Utente Junior
2003
OFFLINE
09/11/2018 11.46

Scusami,
allora, devo stampare la userform comprendente tutte le page, ma quando clicco il pulsante stampa, mi deve dare solo i messaggi di compilazione obbligatoria della page con tutte le combobox e textbox compilate, se le combobox e textbox delle altre page sono in bianco non deve dare i messagi di compilarle, ma mi deve comunque stampare la userform.
come da mio file allegato, se non compilo tutti i campi delle due page non stampa, se compilo tutto allora stampa.
Post: 87
Registrato il: 01/04/2016
Città: MILANO
Età: 16
Utente Junior
2003
OFFLINE
09/11/2018 11.52

non devo essere obbligata a compilare tutte le page
esempio
se compilo la page 1 allora verifica e stampa tutta la userform
se compilo la page 2 allora verifica e stampa tutta la userform
se non compilo la page 3 non mi dare né i messaggi(come da mie istruzioni in vba) ma mi deve stampare tutta la userform
se compilo la page 4 allora deve stampare tutta la userform

Post: 1.980
Registrato il: 06/04/2013
Città: ROMA
Età: 71
Utente Veteran
2010
OFFLINE
09/11/2018 16.23

ciao
c'è un po di confusione nella tua descrizione.

Comunque esiste un solo comando per stampare una uForm, ed è:
Me.PrintForm.

Il seguente codice stampa tutte le singole page e riporta la selezione sulla prima page. Vedi tu cosa ti serve:

saluti


.....
Dim curPage As Long
Dim iCtr As Long
curPage = Me.MultiPage1.Value
For iCtr = 0 To Me.MultiPage1.Pages.Count - 1
Me.MultiPage1.Value = iCtr
Me.PrintForm
Next iCtr
Me.MultiPage1.Value = curPage





Domenico
Win 10 - Excel 2016
(ben difficilmente inserisco la gestione degli errori nelle macro che propongo, lasciando l'incarico all'utente)
Post: 3.202
Registrato il: 03/04/2013
Utente Master
Excel 2000 - 2013
OFFLINE
09/11/2018 17.23

Buona sera, Donatella;
prima di passare alla stampa, dovresti considerare di correggere gli errori.

Quello da correggere assolutamente è in:
-    UserForm1.ComboBox3.ListIndex
credo proprio manchi un:
-    End If immediatamente prima di End Sub

Inoltre ho notato che in diverse condizioni If trovo = “”; non vorrei mai dovesse essere = ""
“” viene considerata come Variabile; questo verrebbe evidenziato se i Codici VBA relativi a UserForm1 fossero preceduti da Option Explicit.



A disposizione.

Buona serata.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 89
Registrato il: 01/04/2016
Città: MILANO
Età: 16
Utente Junior
2003
OFFLINE
09/11/2018 17.28

perdonami ma non ho capito
Post: 91
Registrato il: 01/04/2016
Città: MILANO
Età: 16
Utente Junior
2003
OFFLINE
09/11/2018 17.47

forse si, un po’ di confusione, ma il file che ho allegato agisce in questo modo:
se compilo tutti i campi delle due page, allora stampa(perché nelle istruzione ho detto di verificare tutti i dati) se compilo solo la page1 e non la page2 non stampa(perché ovviamente mancano i dati della page2)
io voglio dire al programma, sì che mi devi verificare i dati obbligatori(messagebox) come da commandb, ma se della page1 compilo i dati, e non clicco nulla della page2, allora puoi anche stampare
o perlomeno,cambiare istruzione, e quindi dire che ad ogni page attivare una istruzione tramite solo anche la prima combobobox, che se compilata, attiva poi tutti gli altri miei messagebox.
c’è qualcuno che mi comprende, provando il file allegato?
grazie
Post: 3.205
Registrato il: 03/04/2013
Utente Master
Excel 2000 - 2013
OFFLINE
09/11/2018 19.26

Buona sera, Donatella;
proprio perchè ho testato il tuo File ho rilevato quanto detto precedentemente.

Ho semplicemte aggiunto un pulsante nel Foglio di lavoro che consente di attivare UserForm1 anche dopo Workbook_Open.

In questo modo ho potuto testare UserForm1.
Attivando UserForm1, compilando ComboBox1, ComboBox2 e ComboBox3 in Page1 e premendo CommandButton1 mi si genera l'errore riportato nell'immagine allegata.

È pur vero che questo non accade se non viene dichiarato Option Explicit, che obbliga a dichiarare tutte le Variabili/Costanti, ma resta il fatto che VBA considera “” una Variabile.

Ciò premesso, l'istruzione:
 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

propone la stampa dei Valori contenuti nel Foglio di lavoro e non, come indicato in #1:
@donatella2016, scrive:


chiedo il vs aiuto, nel file che allego, al commandb ho dato le istruzioni che se lo clicco e le combobobox o textbox non sono compilate mi da il messaggio di compilarle, se la page n. 2 non la compilo mi deve comunque stampare la la page1 compilata.


delle ComboBox o TextBox.

Quanto sopra, per opportuna chiarezza; visto che questo è un Forum il cui scopo è di fornire indicazioni e consigli non solo a Donatella ma a tutti gli utenti.

Detto ciò, fai una riflessione su quanto scritto, poi, se lo ritieni utile e opportuno, assieme, possiamo modificare il Codice VBA per la stampa e renderlo conforme alle tue necessità; credo che le modifiche da apportare al Codice VBA:
-    CommandButton1_Click
siano veramete modeste.

Con l'auspicio di essere stato esaustivo senza essere prolisso, rimango a disposizione per eventuali ulteriori chiarimenti.



A disposizione.

Buona serata.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 92
Registrato il: 01/04/2016
Città: MILANO
Età: 16
Utente Junior
2003
OFFLINE
14/11/2018 16.23

ti ringrazio di avermi dato tempo e spiegazione, ma non ci arrivo.
non so come comportarmi.
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Home Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 03.43. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.5.0.0] - Copyright © 2000-2018 FFZ srl - www.freeforumzone.com