You are here:---Rispondi a: [RISOLTO] Bottone Stampa
Rispondi a: [RISOLTO] Bottone Stampa2017-11-30T14:10:16+02:00

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

AvatarREAPAT
Partecipante
    Post totali: 29

    Ciao,

    Grazie mille tutto perfetto :)

    Solamente che ho trasportato il codice nel mio programma generale e mi trovo quando eseguo questo bottone il seguente errore:

    Errore di run time 1004: Metodo Print Preview dell’oggetto Sheets non riuscito

    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
      <strong>ActiveWindow.SelectedSheets.PrintPreview</strong>
    ElseIf Risp = 6 Then
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End If
    1 Range("A1").Select
    Application.ScreenUpdating = True
    End Sub

    Dove ho messo in grassetto è dove mi marca errore

    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