FILTRA E STAMPA



  • FILTRA E STAMPA
    di andrea (utente non iscritto) data: 28/03/2014 15:04:08

    Ciao,
    ho un problema con una macro che dovrebbe selezionare, tramite filtro, delle righe, successivamente eliminarle e stampare quello che rimane.
    Al momento della selezione ricevo un messaggio di errore
    Errore di run-time '1004'
    Errore definito dall'applicazione o dall'oggetto

    Ho provato anche a utilizzare il registratore macro, il codice viene fuori uguale.

    In alternativa ho provato a selezionare sempre tramite filtro le altre righe e stampare, ma non so come mai mi mantiene le pagine nascoste e me le stampa come pagine bianche.

    Allego entrambi i codici, per me una procedura o l'altra è indifferente

    Grazie


     
    Sub ELIMINA_STAMPA()
    
        Sheets("FOGLIO CONTROLLO").Select
        Selection.AutoFilter Field:=3, Criteria1:="X"
        Cells.Select
        Selection.Delete Shift:=xlUp
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        
    End Sub
    
    
    
    
    Sub STAMPA_CONTROLLI()
    
        Sheets("FOGLIO CONTROLLO").Select
        Selection.AutoFilter Field:=3, Criteria1:="="
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        
    End Sub