Condividi:        

Stampa unione - impaginazione e "nuovo record"

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

Stampa unione - impaginazione e "nuovo record"

Postdi sbs » 15/09/17 12:03

Temo di aver scritto un titolo criptico ma non sapevo come definirlo!
Devo realizzare un modulo con 80 record
Codice: Seleziona tutto
1.   «DOMANDA»
A.    «RISP1»
B.    «RISP2»
C.    «RISP3»
D.    «RISP4»

2.   «Record successivo» «DOMANDA»
A.    «RISP1»
B.    «RISP2»
C.    «RISP3»
D.    «RISP4»

80.   «Record successivo» «DOMANDA»
A.    «RISP1»
B.    «RISP2»
C.    «RISP3»
D.    «RISP4»


il problema è che a 80 deve fermarsi e che deve essere numerato e formattato in modo esatto.
ho realizzo una tabella con 80 righe ma le risposte diventano

AA.    «RISP1»
IIII.    «RISP2»
JJJJ.    «RISP3»
KKKK.    «RISP4»

e non è bello!!!
inoltre mi piacerebbe che la domanda fosse nella stessa pagina cioè che non vi sia un salto pagina ad esempio

2. «Record successivo» «DOMANDA»
A. «RISP1»
B. «RISP2»
Salto pagina
C. «RISP3»
D. «RISP4»


come fare??
Avatar utente
sbs
Utente Senior
 
Post: 114
Iscritto il: 18/09/10 11:25

Sponsor
 

Re: Stampa unione - impaginazione e "nuovo record"

Postdi wallace&gromit » 15/09/17 13:25

Anche l'esposizione del problema è piuttosto criptica, non si capisce cosa non sia bello.

Non penso che a te serva l'istruzione "record successivo", dopo avere impostato una volta i campi fai unisci tutto e otterrai l'elenco completo.
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Stampa unione - impaginazione e "nuovo record"

Postdi sbs » 15/09/17 13:59

record successivo mi consente di avere in ogni domanda il contenuto dei diversi record.
Volevo impostare (tipo access) il fatto che una domanda stia SEMPRE con tutte le sue risposte (stessa pagina).
Ho impostato per la domanda "stile" titolo1, per le risposte "normale".
Avatar utente
sbs
Utente Senior
 
Post: 114
Iscritto il: 18/09/10 11:25

Re: Stampa unione - impaginazione e "nuovo record"

Postdi Anthony47 » 15/09/17 14:53

Solo un'idea: "Stampa Unione" l'ha ordinata il medico o si puo' derogare, l'importante e' arrivare al risultato?

Mi pare che devi preparare delle pagine con N domande a risposta multipla; dove sono le domande (in che formato) e quali sono le regole per creare le N stampe?

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Stampa unione - impaginazione e "nuovo record"

Postdi sbs » 18/09/17 12:30

non lo ha ordinato il medico era la soluzione più semplice partendo da un file di Excel
Avatar utente
sbs
Utente Senior
 
Post: 114
Iscritto il: 18/09/10 11:25

Re: Stampa unione - impaginazione e "nuovo record"

Postdi Anthony47 » 19/09/17 03:26

Anthony ha scritto: Mi pare che devi preparare delle pagine con N domande a risposta multipla; dove sono le domande (in che formato) e quali sono le regole per creare le N stampe?
Visto che Stampa unione non l'ha ordinato il medico allora la risposta alla domanda e' "utile" per elaborare una ipotesi tutta basata su Excel.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Stampa unione - impaginazione e "nuovo record"

Postdi sbs » 19/09/17 07:04

Quindi una macro che generi il file doc?
Avatar utente
sbs
Utente Senior
 
Post: 114
Iscritto il: 18/09/10 11:25

Re: Stampa unione - impaginazione e "nuovo record"

Postdi Anthony47 » 19/09/17 10:46

Anthony, senza avere ancora risposta, ha scritto:Mi pare che devi preparare delle pagine con N domande a risposta multipla; dove sono le domande (in che formato) e quali sono le regole per creare le N stampe?

Siamo nella fase in cui cerchiamo di capire che cosa ti serve; quindi se invece di rispondere alle nostre domande ne fai di tue non arriviamo da nessuna parte. Oppure dici "no, non hai capito la mia necessita', te la rispiego" e la rispieghi.
Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Stampa unione - impaginazione e "nuovo record"

Postdi sbs » 19/09/17 13:36

Ok.
File excell
80 quiz
4 risposte
Avatar utente
sbs
Utente Senior
 
Post: 114
Iscritto il: 18/09/10 11:25

Re: Stampa unione - impaginazione e "nuovo record"

Postdi Anthony47 » 19/09/17 22:53

Allora vediamo di incrociare domande e risposte:
"Mi pare che devi preparare delle pagine con N domande a risposta multipla;" --> "Ok"
"dove sono le domande (in che formato)" --> "File excell"
"e quali sono le regole per creare le N stampe?" --> "80 quiz /4 risposte"

A questo punto mi manca di sapere:
-ma vuoi creare N file (di che tipo) oppure N pagine stampate?
-quale e' la struttura del file excel che contiene i quiz, per capire come identificarli e muoverli.
-quale e' la struttura che hanno (nello steso file?) le risposte, per poterle accoppiare alle domande
-quali sono le regole da seguire per compilare i set di 80 domande /risposte
Per il resto e' tutto ok.

Direi che e' anche il momento di allegare il file con le domande e le risposte, anche se parziale ma purche' sia idoneo anche per il collaudo di quanto si spera di proporti.
Per le istruzioni su come allegare un file:
viewtopic.php?f=26&t=103893&p=605487#p605487

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Stampa unione - impaginazione e "nuovo record"

Postdi sbs » 20/09/17 11:45

-ma vuoi creare N file (di che tipo) oppure N pagine stampate?
150 copie di un fascicolo contenete 80 quiz per fascicolo (tutti uguali quindi un solo documento)
-quale e' la struttura del file excel che contiene i quiz, per capire come identificarli e muoverli.
Colonna A ID
Colonna B MATERIA
Colonna C DOMANDA
Colonna D RISP1
Colonna E RISP2
Colonna F RISP3
Colonna G RISP4
Colonna A e B non utilizzate per questionario
-quale e' la struttura che hanno (nello steso file?) le risposte, per poterle accoppiare alle domande
Sono sulla stessa riga
-quali sono le regole da seguire per compilare i set di 80 domande /risposte
Nessuna regola aggiuntiva, la selezione e randomizzazione è già stata fatta

Codice: Seleziona tutto
ID;MATERIA;DOMANDA;RISP1;RISP2;RISP3;RISP4
21;CULTURA GENERALE;Ernest Hemingway sta a scrittore come Pablo Picasso sta a...;solista.;cubista.;pittore.;artista.
25;CULTURA GENERALE;Quale di questi Tropici non esiste?;Capricorno;Vergine;Cancro;Scorpione
28;CULTURA GENERALE;La Pimpa  una serie a fumetti  italiana disegnata da...;Francesco Tullio Altan.;Sergio Bonelli.;Annette Tison e Talus Taylor.;Max Bunker.
48;CULTURA GENERALE;Renzo Piano  un...;pittore.;cantante.;architetto.;geometra.
50;CULTURA GENERALE;15 minuti prima delle 12.00 equivale...;alle 11:30.;alle 11 e 3/4.;alle 12:15.;alle 23:45.
67;CULTURA GENERALE;'I segreti di Twin Peaks'  una serie televisiva statunitense ideata da;Angelo Badalamenti;alfred hitchcock;Quentin Tarantino;Anthony Zuiker
70;CULTURA GENERALE;;;;;
80;CULTURA GENERALE;;;;;
Avatar utente
sbs
Utente Senior
 
Post: 114
Iscritto il: 18/09/10 11:25

Re: Stampa unione - impaginazione e "nuovo record"

Postdi Anthony47 » 22/09/17 01:25

Allora, con le ricche e abbondanti informazioni spontaneamente fornite ho potuto abbozzare questa macro Excel:
Codice: Seleziona tutto
Sub Quizzes()
Dim Tutte As String, Quizz As String, I As Long, myRand As Long
Dim LastQ As Long, pLen As Long
'
Tutte = "Foglio2"       '<<< Il foglio con tutte le domande
Quizz = "Foglio3"       '<<< Il foglio dove si compileranno le 80 domande
'
Sheets(Quizz).Select
Cells.Clear
Range("Z10000").Value = 1
'scegli printer:
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
    MsgBox "Stampa Cancellata"
    Exit Sub
End If
'
ActiveWindow.View = xlPageBreakPreview
pLen = ActiveSheet.HPageBreaks(1).Location.Row - 1
'ActiveWindow.View = xlNormalView
LastQ = Sheets(Tutte).Cells(Rows.Count, 3).End(xlUp).Row
eop = pLen
For I = 1 To 80
'If I >= 640 Then Stop
reRan:
    myRand = Rnd() * LastQ
    If Application.WorksheetFunction.CountIf(Range("A:A"), myRand) > 0 Then GoTo reRan
    mynext = Cells(Rows.Count, 2).End(xlUp).Row + 2
    If mynext = 3 Then mynext = 2
    If (mynext + 5) > eop Then
        mynext = ActiveSheet.HPageBreaks(Int((mynext + 5) / pLen)).Location.Row
        eop = eop + pLen
    End If
'Debug.Print myRand
    Cells(mynext, 1) = myRand
    Cells(mynext, 2) = Sheets(Tutte).Range("A2").Offset(myRand, 2)
    Cells(mynext + 1, 2) = Sheets(Tutte).Range("A2").Offset(myRand, 3)
    Cells(mynext + 2, 2) = Sheets(Tutte).Range("A2").Offset(myRand, 4)
    Cells(mynext + 3, 2) = Sheets(Tutte).Range("A2").Offset(myRand, 5)
    Cells(mynext + 4, 2) = Sheets(Tutte).Range("A2").Offset(myRand, 6)
Cells(mynext, 1).Select
Next I
ActiveWindow.View = xlNormalView
Cells(mynext + 10, 1).EntireRow.Resize(10000).Delete
Range("A:A").Delete
MsgBox ("Completato...")
End Sub
Va messo in un modulo standard del vba, es Modulo1; le istruzioni marcate <<< vanno personalizzate come da commenti.

Essa dovrebbe produrre un foglio contenente 80 domande random; i page breaks non dovrebbero capitare nel corpo domanda/risposte. C'e' tuttavia da notare che ogni stampante potrebbe avere impostazioni che portano ad avere pagine piu' lunghe o piu' corte di altre stampanti; per cui la migliore situazione e' quella in cui la stampa avviene esattamente sulla stampante selezionata a inizio macro.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Stampa unione - impaginazione e "nuovo record"":


Chi c’è in linea

Visitano il forum: Nessuno e 31 ospiti