Nascondere le maschere quando visualizzo un anteprima di stampa

Può essere utile nascondere, solo momentaneamente una o più maschere durante la visualizzazione di un anteprima di stampa (Report), per evitare sovrapposizioni. Qundo il report viene chiuso, si visualizzano nuovammente le maschere.

Function ShowReport(ReportName as string)

Dim intErrCode as integer

DoCmd. OpenReport ReportName, acPreview

intErrCode = MakeFormsVisible(0)

End Function

Function MakeFormsVisible(Yes No) as Boolean

Dim intConta as Integer

For intConta = 0 To Forms.Count – 1

Forms(intConta).Visible = YesNo

Next

MakeFormsVisible = True

End Function

Naturalmente al codice bisognerà aggiungere una qualche forma di gestione degli errori. Comunque il codice è tutto quì.

 

Informazioni su scaccaglia

Sviluppo software nei linguaggi: Visual Basic, Visual C e Java. Mi occupo anche di trasferimento dati in reti LAN o WAN. Creazione software a misura del cliente. Access - Microsoft SQL Server - Word - Excel.

Pubblicato il 27 marzo 2011 su Access e Visual Basic, Codice VBA. Aggiungi ai preferiti il collegamento . Lascia un commento.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...

%d blogger cliccano Mi Piace per questo: