Forum Excel VBA Forum Excel e gli applicativi Microsoft Office Stampa diversamente codice da private o da sub

Questo argomento contiene 0 risposte, ha 1 partecipante, ed è stato aggiornato da  marco_budin 1 settimana, 6 giorni fa.

Login Registrati
Stai vedendo 1 articolo (di 1 totali)
  • Autore
    Articoli
  • #5557 Score: 0 | Risposta

    marco_budin
    Partecipante

    buongiorno a tutti, ho un problema.

    ho scritto 2 codici, uno è compreso in Private sub e uno in Public Sub.

    Il primo è in Private sub:

         If Range("g171") = "1" Then
        Sheets("FAX MedtronicS").PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        End If
        If Range("h171") = "2" Then
        Sheets("FAX SynthesS3").PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        End If
        If Range("i171") = "4" Then
        Sheets("FAX SynthesS").PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        End If
        If Range("j171") = "5" Then
        Sheets("FAX Globus").PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        End If

    Mentre il secondo il Publuc Sub:

    If Range("g171") = "1" Then
        Sheets("FAX MedtronicS").PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        End If
        If Range("h171") = "2" Then
        Sheets("FAX SynthesS3").PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        End If
        If Range("i171") = "4" Then
        Sheets("FAX SynthesS").PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        End If
        If Range("j171") = "5" Then
        Sheets("FAX Globus").PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        End If

    Allora in Excel 2010 non da nessun problema. e fa quello che deve fare, ma in 2016, il primo in Private Sub stampa senza problema.. anche se tutti i 4 criteri sono corretti in Publuc sub invece, partono solo 2 stampe… se ci sono anche 3 condizioni corrette, stampa solo 2. e non tutte e 3… ho sbagliato qualcosa?

     

    ringrazio per il vostro aiuto. saluti

    Marco Budin

Login Registrati
Stai vedendo 1 articolo (di 1 totali)
Rispondi a: Stampa diversamente codice da private o da sub
Le tue informazioni: