Originariamente inviato da xegallo
potrsti fare un piccolo escamotage
che va a leggere la risoluzione
codice:
Public Function CheckRez(pixelWidth As Long, pixelHeight As Long) As Boolean
    
    Dim lngTwipsX As Long
    Dim lngTwipsY As Long
    
    'converte i pixels in twips
    lngTwipsX = pixelWidth * 15
    lngTwipsY = pixelHeight * 15
    
    ' rileva la risoluzione corrente
    If lngTwipsX <> Screen.Width Then
        CheckRez = False
    Else
        If lngTwipsY <> Screen.Height Then
            CheckRez = False
        Else
            CheckRez = True
        End If
    End If
End Function
xegallo, grazie x l'aiuto...
questa funzione, se ho capito bene, mi restituisce SI o NO a seconda se la larghezza e l'altezza del form sono o meno uguali alla risoluzione dello schermo, giusto?
ma, io già so che le dimensioni del form sono quanto lo schermo... il problema me lo da la stampa proprio.
e cmq, una volta che CheckRez mi restituisce True o False, che dovrei fare?...:master: