Gestione stampante

Salve, questo semplice codice funziona perfettamente se la variabile Page dichiarata nel codice, ma se Page la dichiaro globale in un modulo la stampante non si avvia fino a che non chiudo il programmino. Come fare avviare la stampante senza chiudere? ho bisogno che la variabile sia globale

Dim ps As New PrinterSetup
If ps.PageSetupDialog Then
Dim page As Graphics
page = OpenPrinterDialog(ps)
If page <> Nil Then
page.DrawString(“Mario Graziani”,100,100)
End If
End If

Mario

Risolto
page = OpenPrinter
Mario