VBA:Stampa userform

[draleo]

Per stampare una userform uso

Private Sub CommandButton1_Click()
Me.PrintForm
End Sub

Ottengo una ottima stampa, ma con un grande spreco di toner in quanto viene
stampato anche lo sfondo grigliato della userform e di tutti i commandButton
in essa contenuti
Qualcuno può suggerirmi, tramite VBA, come stampare la userform senza lo
sfondo colorato (quindi senza spreco di inchiostro) e senza i vari Command
Button, la cui visualizzazione in fase di stampa, è inutile ?
Naturalmente questo deve verificarsi solo per la stampa della userForm, in
quanto in fase di visualizzazione, la userform deve mantenere il suo aspetto
originario (cioè con lo sfondo preesistente e tutti i commandbutton al loro
posto)
Draleo

[Scossa]

On 20 Set, 15:56, draleo <dra...@discussioni.com> wrote:
> Per stampare una userform uso
>
> Private Sub CommandButton1_Click()
>     Me.PrintForm
> End Sub
>

> Qualcuno può suggerirmi, tramite VBA, come stampare la userform senza lo
> sfondo colorato (quindi senza spreco di inchiostro) e senza i vari Command
> Button, la cui visualizzazione in fase di stampa, è inutile ?

Una soluzione al volo (da provare):

prima di Me.PrintForm

Imposta .visible = false per tutti i button che non vuoi stampare,
imposta il backgroundcolor della userform a bianco, dopo Me.PrintForm
riporti .visible a true ed il bckgcolor al valore originale

Bye!
Scossa