Risultati da 1 a 12 di 12

Discussione: multistampa



  1. #1
    L'avatar di deltagamma
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Vitolini
    Età
    38
    Messaggi
    11
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    multistampa

    salve a tutti,
    ho una tabella excel di cui, attualmente, faccio bimestralmente 60 copie e su ogni foglio inserisco manualmente la data. Esiste un metodo per inserire un'intervallo di date (ad esempio dal 01/01/2016 al 28/02/2016) in modo da poter stampare direttamente tutti i fogli con la data incrementale?
    File Allegati File Allegati

  2. #2
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: multistampa

    Apri il file, ALT + F11 e inseriscilo sulla destra. Salva come nome.xlsm e prova
    Codice: 
    Sub stampa()
    Dim X, Y, DD As Date
    Y = InputBox("Quanti fogli da stamapre", , 0)
    DD = InputBox("Digita la data d'inizio, Ex 1/5/2016", , 0)
    If IsDate(DD) Then
        For X = 1 To Y
            Cells(1, 6) = "Data        " & DD
            Sheets("Foglio1").PrintOut
            DD = DD + 1
        Next X
    End If
    If X = Y + 1 Then MsgBox "fatto"
    End Sub

  3. #3
    L'avatar di deltagamma
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Vitolini
    Età
    38
    Messaggi
    11
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: multistampa

    Grazie Raffaele
    Funziona alla grande!!!!!!!!!!!

  4. #4
    L'avatar di deltagamma
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Vitolini
    Età
    38
    Messaggi
    11
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: multistampa

    volendo essere un po' pignolo...sarebbe possibile integrare la stampa fronte/retro?

    grazie di nuovo

  5. #5

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2810
    Versione Office
    Excel 2013
    Likes ricevuti
    1022
    Likes dati
    979

    Re: multistampa

    Rispondo io per @Raffaele_53. La stampa fronte/retro è un impostazione della stampante non di Excel.
    Per ovviare a questo, basta avviare la stampa senza farla partire ed impostare fronte/retro e poi fare annulla.
    Facendo partire il ciclo, dovrebbe stampare fronte/retro

  6. #6
    L'avatar di deltagamma
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Vitolini
    Età
    38
    Messaggi
    11
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: multistampa

    grazie Rubik72, avevi ragione...non ci avevo proprio pensato.

    tutto RISOLTO!!!!!!

  7. #7
    L'avatar di deltagamma
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Vitolini
    Età
    38
    Messaggi
    11
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: multistampa

    OPSS...ho esultato troppo presto...
    facendo come ha detto Rubik72, la macro mi stampa la tabella su un lato e niente sull'altro, ripetuto per il numero di pagine che devo stampare e ad ogni stampa mi chiede di reinserire la carta per la stampa sul retro.
    Non so se c'è una soluzione...idee???

  8. #8
    L'avatar di deltagamma
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Vitolini
    Età
    38
    Messaggi
    11
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: multistampa

    Premetto che non ne capisco niente di VB ma ho una lieve infarinatura di altri compilatori....se si facesse incrementare DD di 2 ad ogni routin e dopo si ripetesse il ciclo per DD+1...ovvero, se facessimo stampare tutte le pagine "dispari" e dopo le ruoto e facessimo stampare tutte le "pari"? è una cosa plausibile?
    Ultima modifica fatta da:Canapone; 10/05/17 alle 14:51

  9. #9
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: multistampa

    Prova a copiare l'area delle celle sotto in modo che diventino due fogli e stampa manualmente fronte e retro, se funziona riallega il file.

    Se desideri, mentre stai per stampare, Avvia il registratore Excel,alla fine lo fermi e allega anche il codice.

  10. #10
    L'avatar di deltagamma
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Vitolini
    Età
    38
    Messaggi
    11
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: multistampa

    Ottima idea!
    ho provato a modificare il file...

    può andare?
    File Allegati File Allegati
    Ultima modifica fatta da:Canapone; 10/05/17 alle 14:52

  11. #11
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: multistampa

    Sembrerebbe a posto, solo che devi dire la meta Ex se vuoi stampare 60, metti 30
    Oppure metti sotto Y = InputBox("Quanti fogli da stamapre", , 0)
    Y = Int(Y / 2) se digiti 60 stampa 30, se metti 59 stampa 29
    Per favore togli modifica If X = Y + 1 Then MsgBox "fatto" in MsgBox "fatto"
    Se fai click su ThisWorkbooks forse(questa_cartella_di lavoro) elimina tutto

  12. #12
    L'avatar di deltagamma
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Vitolini
    Età
    38
    Messaggi
    11
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: multistampa

    Grazie Raffaele
    sei sempre di grande aiuto

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •