Risultati da 1 a 22 di 22

Discussione: Anteprima di Stampa e Stampa



  1. #1
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Anteprima di Stampa e Stampa

    Gent.mi,


    gentilmente gradirei risolvere due problemi all'anteprima di stampa e stampa che funziona e
    che presenta un inconveniente.
    Ho 4 fogli di 80 - 90 voci che si incrementa e vorrei che mi stampa solo le voci inserite.
    Considerando che ho 4 fogli di lavoro, si potrebbe all'inizio scegliere il foglio di lavoro
    da stampare?


    Anticipatamente ringrazio, saluto.


    Domenico.

  2. #2
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Stampa e Ateprima di Stampa

    faccio seguito alla precedente e sScusatemi che nella fretta non ho inserito il file
    File Allegati File Allegati

  3. #3
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1119
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Stampa e Ateprima di Stampa

    perché aprire 2 discussioni ? non potevi allegare il file nella prima ?

  4. #4
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: Stampa e Ateprima di Stampa

    Gent.mo Patel,



    come ho accennato precedentemente, nella fretta ho cliccato l'invio della discussione
    senza allegare il file.


    Domenico.

  5. #5
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1119
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Stampa e Ateprima di Stampa

    quando ho letto c'erano due discussioni uguali, ora ce n'è una sola, per questo ti ho detto quanto sopra.

  6. #6

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

    Re: Anteprima di Stampa e Stampa

    Citazione Originariamente Scritto da Pacifico437 Visualizza Messaggio
    [...]
    Ho 4 fogli di 80 - 90 voci che si incrementa e vorrei che mi stampa solo le voci inserite.
    Faccio fatica a capire la richiesta.
    Come si determinano le voci inserite?

  7. #7
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1119
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Anteprima di Stampa e Stampa

    diciamo che si è espresso molto male, comunque:
    Codice: 
    Private Sub CommandButton1_Click() ' Anteprima di Stampa
    Dim foglio As Integer
    foglio = InputBox("Foglio da stampare")
    Sheets(foglio).Select
    ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
    Unload UserForm1
    ActiveWindow.SelectedSheets.PrintPreview
    
    End Sub

  8. #8
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: Anteprima di Stampa e Stampa

    Gent.mo Rubik72 e Patel,


    chiedo scusa se non sono stato chiaro nell'esprimere ciò che desidero ed auguro di
    riuscire.
    Ho 4 fogli: Foglio1, foglio2 ed ecc. gradirei scegliere quale dei fogli stampare se il
    primo, il secondo, il terzo o il quarto ed il numero delle voci inserite.


    Ringrazio e saluto.
    Domenico.

  9. #9
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Anteprima di Stampa e Stampa

    Citazione Originariamente Scritto da Pacifico437 Visualizza Messaggio
    Gent.mi,


    gentilmente gradirei risolvere due problemi all'anteprima di stampa e stampa che funziona e
    che presenta un inconveniente.
    Ho 4 fogli di 80 - 90 voci che si incrementa e vorrei che mi stampa solo le voci inserite.
    Considerando che ho 4 fogli di lavoro, si potrebbe all'inizio scegliere il foglio di lavoro
    da stampare?


    Anticipatamente ringrazio, saluto.


    Domenico.
    visto che ci stai provando...
    hai scritto il tuo codice facendo riferimento al foglio attivo...
    quindi o richiami la tua form in modo da poter passare il controllo sul foglio excel e attivare il foglio che desideri
    Codice: 
    Sub Prova()
     UserForm1.Show vbModeless
    End Sub
    ed utilizzando un'istruzione richiamata da @patel che saluto (e al quale mi sono sovrapposto)

    Codice: 
    Private Sub CommandButton1_Click() ' Anteprima di Stampa
    ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
    Unload UserForm1
    ActiveWindow.SelectedSheets.PrintPreview
    UserForm1.Show vbModeless
    End Sub
    o puoi popolare una combobox, e riscrivere il codice facendo riferimento non al foglio attivo ma al foglio selezionato nella combobox...

    saluti gg

  10. #10
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: Anteprima di Stampa e Stampa

    Gent.mo ggratis,


    ringrazio della gentilezza, nel frattempo Ho effettuato una modifica inserendo un ComboBox
    per la scelta dei fogli da stampare.
    Alla stampa, mi stampa sempre il primo foglio e al momento non riesco, secondo le mie
    capacità a far stampare ciò che ho scelto con il ComboBox ed il numero delle voci inserite
    al foglio.


    Auguro di riuscire ed invio il file della modifica.
    Domenico.

    ----------Post unito in automatico----------

    Gent.mo ggratis,
    ringrazio della gentilezza, nel frattempo Ho effettuato una modifica inserendo un ComboBox
    per la scelta dei fogli da stampare.
    Alla stampa, mi stampa sempre il primo foglio e al momento non riesco, secondo le mie
    capacità a far stampare ciò che ho scelto con il ComboBox ed il numero delle voci inserite
    al foglio.
    Auguro di riuscire ed invio il file della modifica.
    Domenico.
    File Allegati File Allegati

  11. #11
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1119
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: Anteprima di Stampa e Stampa

    hai provato il codice riportato al post 7 per l'anteprima ?

  12. #12
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: Anteprima di Stampa e Stampa

    Gent.mo Patel,


    ringrazio della gentilezza e tempestività.

    Ho provato il codice del post 7, eliminando la scelta della stampante va bene.
    Gentilmente gradirei due suggerimenti:
    > se inavvertitamente inserisco un foglio che non esiste per es. il 7, va in errore e
    gradirei inserire un MSGVBOX che mi avvisa e ripristina e vorrei sapere in quale riga
    dovrei inserire.
    > Vi è la possibilità di scelta delle voci da stampare?


    Scusa se approfitto e saluto.
    Domenico.

  13. #13
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Anteprima di Stampa e Stampa

    ecco una soluzione con la combo...
    Codice: 
    Private Sub CommandButton1_Click() ' Anteprima di Stampa
    Worksheets(ComboBox1.Value).Select
    ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
    Unload UserForm1
    ActiveWindow.SelectedSheets.PrintPreview
    UserForm1.Show vbModeless
    End Sub
    per caricare la combo...
    Codice: 
    Private Sub ComboBox1_Enter()
    Dim i As Long
            ComboBox1.Clear
            For i = 1 To Sheets.Count
                            ComboBox1.AddItem Sheets(i).Name
            Next i
    End Sub
    saluti
    gg
    File Allegati File Allegati

  14. #14
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: Anteprima di Stampa e Stampa

    Gent.mo ggratis,


    con il Combobox va bene l'anteprima di stampa. Viceversa con la stampa no, non mi stampa le

    voci inserite del foglio mi fa una stampa a vuoto.
    Mentre con l'Input di Patel va bene.
    Al momento non sono riuscito a modificare la stampa suggerita da Patel eliminando l'imput
    ed inserendo la scelta dal Combobox.


    Ringrazio della cortesia e premura, saluto.

    Domenico.

  15. #15
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Anteprima di Stampa e Stampa

    Ciao Pacifico437,
    prova così:

    nella userform
    Codice: 
    Option Explicit
    
    
    Private Sub CommandButton1_Click() ' Anteprima di Stampa
    If ComboBox1.Value = "" Then Exit Sub
    Worksheets(ComboBox1.Value).Select
    ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
    Unload UserForm1
    ActiveWindow.SelectedSheets.PrintPreview
    UserForm1.Show vbModeless
    End Sub
    
    
    Private Sub CommandButton2_Click() ' Stampa
    Dim SelPrint As Boolean
    If ComboBox1.Value = "" Then Exit Sub
    Worksheets(ComboBox1.Value).Select
    ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
    SelPrint = Application.Dialogs(xlDialogPrint).Show
        If SelPrint = False Then
                Exit Sub
            Else
                ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                IgnorePrintAreas:=False
        End If
    End Sub
    
    
    Private Sub ComboBox1_Enter()
    Dim i As Long
            ComboBox1.Clear
            For i = 1 To Sheets.Count
                            ComboBox1.AddItem Sheets(i).Name
            Next i
    End Sub
    
    
    Private Sub CommandButton3_Click()
    
    
    Unload Me
    
    
    End Sub
    nel modulo standard

    Codice: 
    Sub Prova()
    
    
     UserForm1.Show 'vbModeless '(decidi tu se utilizzarlo oppure no)
    
    
    End Sub
    File Allegati File Allegati

  16. #16
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: Anteprima di Stampa e Stampa

    Gent.mo ggratis,


    stampa due volte lo stesso foglio. Rispetto a prima va bene se si può correggere
    l'inconveniente.


    Ringrazio e saluto.
    Domenico.

  17. #17
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Anteprima di Stampa e Stampa

    Citazione Originariamente Scritto da Pacifico437 Visualizza Messaggio
    Gent.mo ggratis,


    stampa due volte lo stesso foglio. Rispetto a prima va bene se si può correggere
    l'inconveniente.


    Ringrazio e saluto.
    Domenico.
    Togli il codice che è nell'else e togli anche else...
    Prova a capire cosa intendo ora sono fuori ti rispondo dal cell...

    Inviato dal mio GT-I9105P utilizzando Tapatalk


    così credo funzioni tutto...

    userform
    Codice: 
    Option Explicit
    
    
    Private Sub CommandButton1_Click() ' Anteprima di Stampa
    If ComboBox1.Value = "" Then Exit Sub
    Worksheets(ComboBox1.Value).Select
    ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
    Unload UserForm1
    ActiveWindow.SelectedSheets.PrintPreview
    UserForm1.Show vbModeless
    End Sub
    
    
    Private Sub CommandButton2_Click() ' Stampa
    Dim SelPrint As Boolean
    If ComboBox1.Value = "" Then Exit Sub
    Worksheets(ComboBox1.Value).Select
    ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
    Unload UserForm1
    Application.Dialogs(xlDialogPrint).Show
    UserForm1.Show vbModeless
    End Sub
    
    
    Private Sub ComboBox1_Enter()
    Dim i As Long
            ComboBox1.Clear
            For i = 1 To Sheets.Count
                            ComboBox1.AddItem Sheets(i).Name
            Next i
    End Sub
    
    
    Private Sub CommandButton3_Click()
    
    
    Unload Me
    
    
    End Sub
    modulo standard

    Codice: 
    Sub Prova()
    
    
     UserForm1.Show vbModeless
    
    
    End Sub
    Ultima modifica fatta da:ggratis; 27/06/16 alle 18:06

  18. #18
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: Anteprima di Stampa e Stampa

    Gent.mo ggratis,


    ringrazio della pazienza, al momento funziona perfettamente.
    Saluto.
    Domenico.

  19. #19
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: Anteprima di Stampa e Stampa

    Gent.mo ggratis,


    ero convinto di riuscire e nuovamente sono a chiedere un ulteriore supporto.
    Risolto il problema per l'anteprima e stampa, gradirei gentilmente svuotare i campi (eliminare tutte le voci delle colonne escluso i titoli).


    Mi scuso e ringrazio,
    Domenico.

  20. #20
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Anteprima di Stampa e Stampa

    non è proprio ortodosso, ma nel tuo caso potrebbe andare...
    ho aggiunto un pulsante nella form, ma il comando può essere integrato per esempio nel pulsante della stampa

    Codice: 
    Private Sub CommandButton4_Click()
    ActiveSheet.UsedRange.Offset(1, 0).Value = ""
    End Sub
    spero ti piaccia ;)

    saluti
    gg
    File Allegati File Allegati

  21. #21
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: Anteprima di Stampa e Stampa

    Gent.mo ggratis,


    sono rammaricato per il fastidio.
    funziona solo per il foglio n. 1 e per far funzionare anche gli altri fogli con ComboBox?
    Da considerare che i fogli sono 4.


    Grazie e scusa.
    Domenico.

    ----------Post unito in automatico----------

    Gent.mo ggratis,


    dopo alcune prove ci sono riuscito, funziona tutto ok.
    Rinnovo le scuse.

    Grazie

    Domenico.

  22. #22
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Anteprima di Stampa e Stampa

    nessun problema...

    grazie per il riscontro positivo

    PS: funziona sul foglio attivo, ma puoi associarlo anche al valore selezionato nella combobox, provaci ;)

    saluti
    gg

    Codice: 
    Private Sub CommandButton4_Click()
    If ComboBox1.Value = "" Then Exit Sub
    Worksheets(ComboBox1.Value).Select
    With ActiveSheet.UsedRange
    .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).ClearContents
    End With
    End Sub
    Ultima modifica fatta da:ggratis; 28/06/16 alle 17:55

Discussioni Simili

  1. [Risolto] stampa area di stampa di un foglio diverso
    Di ninnago nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 13/04/17, 11:42
  2. [Risolto] Excel 2010. Anteprima e Stampa documenti
    Di Pacifico437 nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 06/03/17, 15:14
  3. [Risolto] Stampa pdf
    Di Chiarpato nel forum Domande su Excel VBA e MACRO
    Risposte: 25
    Ultimo Messaggio: 02/01/17, 13:12
  4. Stampa pdf
    Di sergiogranero nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 04/12/16, 10:36
  5. Bordi su anteprima di stampa
    Di alfrimpa nel forum Domande su Excel in generale
    Risposte: 16
    Ultimo Messaggio: 13/09/16, 19:57

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
  •