-
-
Salve Ragazzi,
per evitare l’antiestetico sfarfallio e passaggio di file visivo preferisco coprire il foglio con l’apertura di un form a tutto schermo al quale ho abbinato una immagine.
Il codice usato è questo ed è inserito nell’activate del form
————————————————————————
CuH = STAMPA.Height ‘dimensioni iniziali
CuW = STAMPA.Width
‘Resize Form
STAMPA.Top = Application.Top
STAMPA.Left = Application.Left
STAMPA.Width = Application.Width
STAMPA.Height = Application.Height
‘
‘Resize contenuto
ZoW = STAMPA.Width / CuW ‘calcola zoom
ZoH = STAMPA.Height / CuH
If ZoW < ZoH Then RZoom = ZoW Else RZoom = ZoH
STAMPA.Zoom = RZoom * 100
——————————————————————-
sotto al codice che gestisce il form a tutto schermo altri codici.
Il tutto parte cliccando un pulsante al quale è abbinato questa macro:
—————————————————————————-
Sub Avvio_stampa_2()
controllo = MsgBox(“SE VUOI STAMPARE PREMI SI ?”, vbYesNo)
If controllo = vbYes Then
STAMPA.Show
MAPPA.Show
End If
End Sub
———————————————————————————
appena clicco il pulsante il form va a tutto schermo ma senza l’immagine abbinata, ci vuole alcuni secondi prima che l’immagine appaia quindi rallentando una procedura che è già complessa e lunga. Si può fare qualcosa?
Grazie a tutti
Teto
-
Ciao Teto, un file d’esempio è la migliore delle risposte.
a volte dipende anche dal tipo di immagine che deve caricare.
anche se non credo che un userform a tutto schermo sia la soluzione migliore un esempio.
Ciao By Sal
Ciao By Sal (8-)
se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie -
Ciao By Sal
eccoti l’esempio excel
<br />e un mini video che ti mostra quello che succede e i tempi tra l’apertuta del form e l’apparizione della sua immagine<br />
teto
-
- Devi essere connesso per rispondere a questo topic.