You are here:Home-Domande su Excel VBA e MACRO-inserire una anteprima di stampa in una macro
inserire una anteprima di stampa in una macro2020-12-01T21:37:23+01:00

Home Forum Domande su Excel VBA e MACRO inserire una anteprima di stampa in una macro

Visualizzazione 2 filoni di risposte
  • Autore
    Post
    • Avatartreno58
      Partecipante
        Post totali: 15

        buona sera,

        sto cercando di capire dove mettere il comando . printpreview nella macro che segue.

        il risultato che vorrei ottenere è che la macro si fermi una volta aperta l’anteprima di stampa così da dar modo all’utente di sceglere a quale stampante inviare il foglio.

        inutile dire che fino ad ora i miei sforzi si sono rivelati vani

        grazie

         

        stefano

         

         

        Private Sub CommandButton1_Click() ‘Stampante

         

         

        Dim r

         

        Unload UserForm11

        r = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

        Range(“A1:G” & r).Select

        ActiveSheet.PageSetup.PrintArea = “$A$1:$G$” & r

        Application.CutCopyMode = False

        With ActiveSheet.PageSetup

        .LeftHeader = “Stampa effettuata &D ore &T Pagina &P di &N”

        .Orientation = xlPortrait

        .FitToPagesWide = 1

        .FitToPagesTall = 1

        End With

        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

        Sheets(“programma lavoro”).Select

        End Sub

      • AvatarKris_9951
        Partecipante
          Post totali: 199

          Ciao Treno58,

          non sono davanti al PC quindi non garantisco ;-)

          Prova a sostituire quella istruzione con

          Application.CommandBars.ExecuteMso(“PrintPreviewAndPrint”)
          
          Fai sapere (se vuoi)  :bye: 
        • Avatartreno58
          Partecipante
            Post totali: 15

            perfetto!

             

            grazie!

            stefano

             

        Visualizzazione 2 filoni di risposte
        • Devi essere connesso per rispondere a questo topic.