You are here:---Rispondi a: [RISOLTO] Bottone Stampa
Rispondi a: [RISOLTO] Bottone Stampa2017-11-29T19:49:44+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Bottone Stampa Rispondi a: [RISOLTO] Bottone Stampa

BySalvBySalv
Amministratore del forum
    Post totali: 460

    Ciao REAPAT, ti ho creato il codice per il pulsante per la stampa, che intercetta i dati del Listbox siano essi filtrati o meno.

    Private Sub CommandButton22_Click() 'Stampa Lista
    Dim i As Long, r, sh As Worksheet, sh1 As Worksheet
    Set sh1 = Worksheets("Scheda_prodotti")
    Set sh = Worksheets("Stampa")
    sh1.Activate
    Application.ScreenUpdating = False
    sh.Activate
    Cells.Select
    Selection.Delete Shift:=xlUp
    sh1.Range("A1:G1").Copy sh.Cells(1, 1)
    r = 2
    For i = 0 To Me.ListBox1.ListCount - 1
        sh.Cells(r, 1) = Me.ListBox1.List(i, 0)
        sh.Cells(r, 2) = Me.ListBox1.List(i, 1)
        sh.Cells(r, 3) = Me.ListBox1.List(i, 2)
        sh.Cells(r, 4) = Me.ListBox1.List(i, 3)
        sh.Cells(r, 5) = Me.ListBox1.List(i, 4)
        sh.Cells(r, 6) = Me.ListBox1.List(i, 5)
        sh.Cells(r, 7) = Me.ListBox1.List(i, 6)
        r = r + 1
    Next i
    sh.Columns("A:D").Select
    Selection.Columns.AutoFit
    sh.Cells(1, 1).Select
    StampaT
    UserForm2.Show
    Application.ScreenUpdating = True
    sh1.Activate
    sh1.Cells(1, 1).Select
    End Sub

    ed anche la macro per la stampa questa

    Sub StampaT()
    Dim Risp, r
    Application.ScreenUpdating = False
    Risp = MsgBox("          Stampante = SI       Video = NO", vbYesNoCancel, "Dove inviare la stampa")
    If Risp = 2 Then GoTo 1
    r = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A1:G" & r + 4).Select
    ActiveSheet.PageSetup.PrintArea = "$A$2:$G$" & r + 4
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
    End With
    If Risp = 7 Then
      UserForm2.Hide
      ActiveWindow.SelectedSheets.PrintPreview
    ElseIf Risp = 6 Then
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End If
    1 Range("A1").Select
    Application.ScreenUpdating = True
    End Sub

    che ti chiede se vuoi la stampa a video oppure inviarla alla stampante.

    Il tutto si svolge nel Foglio “Stampa”

    ti allego anche il file

    http://www.filedropper.com/ricercamaterialeiniziale23_1

    Ciao By Sal :bye:

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi