Stampa



  • Stampa
    di Langdon74 (utente non iscritto) data: 18/03/2015 17:14:13

    Buonasera a tutti, ho una domanda da porvi.
    Vorrei fare in modo che, quando stampo un documento, se alcune celle sono vuote, deve comparire il messaggio che la stampa non è possibile perchè alcune celle sono vuote, come posso fare?
    Grazie mille.



  • di fcarboni data: 18/03/2015 17:56:13

    Lanci la stampa da un pulsante,
    che prima verifica la condizione della/delle celle e poi stampa.

     
    Sub Pulsante1_Click()
    If Range("A1").Value = "" Then
        MsgBox "La cella A1 non è compilata", vbCritical
    ElseIf Range("B1").Value = "" Then
        MsgBox "La cella B1 non è compilata", vbCritical
    ElseIf Range("C1").Value = "" Then
        MsgBox "La cella C1 non è compilata", vbCritical
    Else
    ActiveSheet.PrintOut   ' se vuoi stampare direttamente
    Application.Dialogs(xlDialogPrint).Show ' se vuoi che appaia la finestra di dialogo
    
    End If
    End Sub
    



  • di Vecchio Frac data: 18/03/2015 18:55:52

    In alternativa, puoi intercettare l'evento BeforePrint esposto da ThisWorkbook e fare lì le verifiche, annullando la stampa se le condizioni non son rispettate.

    Private Sub Workbook_BeforePrint(Cancel As Boolean)