[VB6] Stampa dati su file Excel con immagine di sfondo.

[maximum]

Salve a tutti, vorrei provare a visualizzare dei dati testuali, ma sopra un'immagine da utilizzate come sfondo del file Excel.
Un sorta, per intenderci, di foglio con sfondo prestampato.

Non so se mi sono spiegato.

Tuttavia, accade che in fase di generazione Excel, l'immagine di sfondo, viene correttamente stampata e posizionata....anche il testo, ma con un particolare non di certo trascurabile, viene generato sotto l'immagine e quindi non viene mai visualizzato sopra di questa.

C'è un modo tramite VB6 di dire che le parti testuali debbono essere stampate sopra un'immagine importata applicativamente?

Grazie anticipatamente per l'aiuto.

[oregon]

Intanto devi specificare che il linguaggio e' il VB6 ... poi dovresti dire come hai fatto a stampare e mostrare il codice ...

[maximum]

Spezzo il codice in più post, visto che non me lo fa inserire tutto:

    Dim AX As Excel.Application
    Dim WB As Workbook
    Dim WS As Worksheet
    Dim RG As Range
    Dim RG1 As Range
    Dim fFileName As String
    Dim strSql As String
    Dim strSql2 As String
    Dim strSql3 As String
    Dim strSql4 As String
    Dim strSql5 As String
    Dim vRigheDettaglio As Integer
    Dim vCicli As Integer
    Dim numero As Integer
    Dim vConta As Integer
    Dim X As Integer
    Dim Y As Integer
    Dim X_Rif As Integer
    Dim vIdAttenzioneDocumento As Integer
    Dim vCorteseAttenzioneDocumento As String
    Dim varArray As Variant
    Dim varItem As Variant
    Dim vPiva As String
    Dim vCodFisc As String
    Dim vCongresso As String
    Dim vNumDocumento As Integer
    Dim vDataDocumento As String
    Dim vCondDocumento As String
    Dim vTotImpFornEuro As Double
    Dim vTotImponibile As Double
    Dim vTotIva As Double
    Dim vAcconto As Double
    Dim vTotDocumento As Double
    Dim vStatoFattura As String
    Dim vDataRiferimento As String
    Dim vNumRifFattura As Integer
    Dim vDataRifFattura As String
    Dim vStringaRiferimento As String
    Dim i As Integer
    Dim i_iva As Integer
    Dim xRangeInizio As String
    Dim xRangeFine As String
    Dim vAnagrafica As String
    Dim vEtichetta As String
    Dim vColore As String
    Dim vColoreImporto
    Dim vDocumento As String
    Dim vNomeFile As String
    Dim contaDettaglio As Integer
    Dim X_cod As Integer
    Dim vTopQuery As Integer
    Dim vDescrizione As String
    Dim vCongressoDiviso As String
    Dim vACapo As Boolean
    Dim X_Cli As Integer
    
    On Error GoTo Error
    
    Me.MousePointer = vbHourglass
    
    Set AX = New Excel.Application
    
    Set WB = AX.Workbooks.Add
    
    Set WS = WB.Worksheets(1)
    
    With AX.Worksheets(1).PageSetup
        .LeftMargin = AX.InchesToPoints(0.39370078740157)
        .RightMargin = AX.InchesToPoints(0.39370078740157)
        .TopMargin = AX.InchesToPoints(0.39370078740157)
        .BottomMargin = AX.InchesToPoints(0.39370078740157)
        .HeaderMargin = AX.InchesToPoints(0.511811023622047)
        .FooterMargin = AX.InchesToPoints(0.511811023622047)
    End With
    
    vConta = 0
    X = 1
    X_Rif = 6
    Y = 12
    vACapo = False
    
    'Ciclo principale per stampa su più pagine ove necessario
    For vCicli = 1 To vNumPagine
        If vCicli > 1 Then
            If vPiva = "" Then
                X = X + 9
            Else
                Select Case (vConta)
                    Case 1
                        If vACapo Then
                            X = X + 11 '8 (da ripristinare)
                        Else
                            X = X + 12 '9 (da ripristinare)
                        End If
                    Case 2
                        If vACapo Then
                            X = X + 10 '7 (da ripristinare)
                        Else
                            X = X + 11 '8 (da ripristinare)
                        End If
                    Case 3
                        If vACapo Then
                            X = X + 9  '6 (da ripristinare)
                        Else
                            X = X + 10 '7 (da ripristinare)
                        End If
                End Select
                X_Rif = X_Rif + 63
                Y = Y + 62
                vConta = 0
            End If
            Select Case (vCicli)
                Case 2
                    vTopQuery = 54 '30 (da ripristinare)
                Case 3
                    vTopQuery = 81 '90 (da ripristinare)
                Case 4
                    vTopQuery = 108 '120 (da ripristinare)
                Case 5
                    vTopQuery = 135 '150 (da ripristinare)
                Case 6
                    vTopQuery = 162 '180 (da ripristinare)
                Case 7
                    vTopQuery = 189 '210 (da ripristinare)
                Case 8
                    vTopQuery = 216 '240 (da ripristinare)
                Case 9
                    vTopQuery = 243 '270 (da ripristinare)
                Case 10
                    vTopQuery = 270 '300 (da ripristinare)
                Case 11             '    (togliere in caso di ripristino)
                    vTopQuery = 297 '300 (togliere in caso di ripristino)
            End Select
        End If
        
        'Stampa del logo
        Set RG = WS.Range("A" & X, "C" & X)
        RG.Merge
        Select Case (vCicli)
            Case 1
                WS.Range("A2:C2").Select
                With WS.Pictures.Insert(App.Path & "\FondoClicart.gif")
                    .Left = WS.Range("A2").Left
                    .Top = WS.Range("A2").Top
                End With
            Case 2
                WS.Range("A65:C65").Select
                With WS.Pictures.Insert(App.Path & "\FondoClicart.gif")
                    .Left = WS.Range("A65").Left
                    .Top = WS.Range("A65").Top
                End With
            Case 3
                WS.Range("A128:C128").Select
                With WS.Pictures.Insert(App.Path & "\FondoClicart.gif")
                    .Left = WS.Range("A128").Left
                    .Top = WS.Range("A128").Top
                End With
            Case 4
                WS.Range("A191:C191").Select
                With WS.Pictures.Insert(App.Path & "\FondoClicart.gif")
                    .Left = WS.Range("A191").Left
                    .Top = WS.Range("A191").Top
                End With
        End Select
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        
        If Me.txtCodRif.Text <> "-" Then
            X_cod = X + 2
            'Inizio stampa sezione Cod. Rif. (solo se valorizzato)
            Set RG1 = WS.Range("I" & X_cod)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &H800000
            RG1.Font.Bold = True
            RG1.Merge
            RG1.Value = "Cod. Rif.:"
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            
            Set RG1 = WS.Range("J" & X_cod, "K" & X_cod)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &H800000
            RG1.Font.Bold = True
            RG1.Merge
            RG1.Value = Me.txtCodRif.Text
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            'Fine stampa sezione Cod. Rif. (solo se valorizzato)
        End If
        
        X = X + 6
        X_Cli = X - 1
        
        '1 Riga - prima parte in grassetto
        Set RG1 = WS.Range("A" & X_Cli, "B" & X_Cli)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 8
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "di G. La Rosa & C. sas"
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        
        '1 Riga - seconda parte senza grassetto
        Set RG1 = WS.Range("C" & X_Cli, "E" & X_Cli)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 8
        RG1.Font.Color = &H800000
        RG1.Merge
        RG1.Value = "Via Aiace, 4 - 90151 Palermo"
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        
        X = X + 1
        X_Cli = X_Cli + 1
        
        '2 Riga
        Set RG1 = WS.Range("A" & X_Cli, "C" & X_Cli)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 8
        RG1.Font.Color = &H800000
        RG1.Merge
        RG1.Value = "Tel./Fax: 091.453082 - Cell. 389 5504989"
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        
        X = X + 1
        X_Cli = X_Cli + 1
        
        '3 Riga
        Set RG1 = WS.Range("A" & X_Cli, "D" & X_Cli)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 8
        RG1.Font.Color = &H800000
        RG1.Merge
        RG1.Value = "P.Iva: 05170710825 - C.F.: LRSGNN60H13G273H"
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        
        X = X + 1
        X_Cli = X_Cli + 1
        
        '4 Riga
        Set RG1 = WS.Range("A" & X_Cli, "D" & X_Cli)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 8
        RG1.Font.Color = &H800000
        RG1.Merge
        RG1.Value = "Mail: info@clic-art.it | Web: www.clic-art.it"
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75

[maximum]

        strSql = "SELECT c.Azienda, c.Indirizzo, c.Civico, c.Cap, c.Citta, c.Cognome, c.Nome, c.Partita_Iva, c.Codice_Fiscale, " & _
                 "       d.Num_Documento, d.Data_Documento, d.Condizione_Documento, d.Tot_Imp_Forn_Euro, " & _
                 "       d.Tot_Imponibile, d.Tot_Iva, d.Acconto, d.Tot_Documento, d.Stato_Fattura, d.Data_Riferimento, " & _
                 "       d.Num_Rif_Fattura, d.Data_Rif_Fattura, d.Id_Attenzione " & _
                 "  FROM Documento d, Cliente c" & _
                 " WHERE d.Id_Documento = " & vIdDocumento & _
                 "   AND d.Tipo_Documento = '" & vTipoDoc & "' " & _
                 "   AND d.Id_Cliente = c.Id_Cliente"
                 
        Set RS = Db.Execute(strSql)
        
        If Trim(RS(0)) <> "-" Then
            If Len(Trim(RS(0))) > 40 Then
                xRangeInizio = "G"
                xRangeFine = "K"
            Else
                xRangeInizio = "H"
                xRangeFine = "K"
            End If
        Else
            vAnagrafica = Trim(RS(5)) & " " & Trim(RS(6))
            If Len(vAnagrafica) > 40 Then
                xRangeInizio = "G"
                xRangeFine = "K"
            Else
                xRangeInizio = "H"
                xRangeFine = "K"
            End If
        End If
        
        X = X + 1
        'Inizio Stampa sezione relativa al Cliente
        Set RG1 = WS.Range(xRangeInizio & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "SPETT.LE"
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        
        vPiva = Trim(RS(7))
        vCodFisc = Trim(RS(8))
        vNumDocumento = RS(9)
        vDataDocumento = Trim(RS(10))
        vCondDocumento = Trim(RS(11))
        vTotImpFornEuro = RS(12)
        vTotImponibile = RS(13)
        vTotIva = RS(14)
        vAcconto = RS(15)
        vTotDocumento = RS(16)
        vStatoFattura = Trim(RS(17))
        vDataRiferimento = Trim(RS(18))
        vNumRifFattura = Trim(RS(19))
        vDataRifFattura = Trim(RS(20))
        vIdAttenzioneDocumento = CInt(RS(21))
        If vIdAttenzioneDocumento <> 0 Then
            'Query sulla tabella dei nominativi (solo se valorizzato)
            strSql5 = "SELECT nom.Nome_Attenzione, nom.Cognome_Attenzione " & _
                      "  FROM Nominativo_Attenzione nom " & _
                      " WHERE nom.Id_Attenzione = " & vIdAttenzioneDocumento
        
            Set RS2 = Db.Execute(strSql5)
            vCorteseAttenzioneDocumento = Trim(RS2(0)) & " " & Trim(RS2(1))
            RS2.Close
            Set RS2 = Nothing
            
            Select Case (vTipoDoc)
                Case "F"
                    vColore = 17
                Case "P"
                    vColore = 45
                Case "NC"
                    vColore = 13
            End Select
            
            Set RG1 = WS.Range("A" & Y, "C" & Y)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &HFFFFFF
            RG1.Font.Bold = True
            RG1.Merge
            RG1.Value = "Cortese attenz. Sig./Sig.ra"
            WS.Range("A" & Y, "C" & Y).Interior.ColorIndex = vColore
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            RG1.BorderAround XlLineStyle.xlContinuous
            
            Y = Y + 1
            
            Set RG1 = WS.Range("A" & Y, "C" & Y)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &H800000
            RG1.Font.Bold = True
            RG1.Merge
            RG1.Value = vCorteseAttenzioneDocumento
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            RG1.BorderAround XlLineStyle.xlContinuous
        End If

        X = X + 1
        
        If vTipoDoc = "NC" Then
            'Inizio Sezione stampa riferimento alla Fattura
            'Controllo se la Nota di Credito è legata ad una Fattura
            strSql3 = "SELECT Id_Fattura " & _
                      "  FROM Fattura_NotaCredito " & _
                      " WHERE Id_NotaCredito = " & vIdDocumento
            Set RS2 = Db.Execute(strSql3)
            
            If Not RS2.EOF Then
                'Se c'è il legame, recupero le informazioni dalla Fattura
                strSql4 = "SELECT Num_Documento, Data_Documento " & _
                          "  FROM Documento " & _
                          " WHERE Tipo_Documento = 'F' " & _
                          "   AND Id_Documento = " & RS2(0)
                Set RS3 = Db.Execute(strSql4)
                
                vStringaRiferimento = "Riferimento Fattura N° " & RS3(0) & " del " & RS3(1)
                
                RS3.Close
                Set RS3 = Nothing
            Else
               vStringaRiferimento = "Riferimento Fattura N° " & vNumRifFattura & " del " & vDataRifFattura
            End If
            RS2.Close
            Set RS2 = Nothing
            
            Set RG1 = WS.Range("G" & X_Rif, "K" & X_Rif)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &H800000
            RG1.Font.Bold = True
            RG1.Merge
            RG1.Value = vStringaRiferimento
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            'Fine Sezione stampa riferimento alla Fattura
        End If
    
        If Trim(RS(0)) = "-" Then
            Set RG1 = WS.Range(xRangeInizio & X, xRangeFine & X)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &H800000
            RG1.Font.Bold = True
            RG1.Merge
            RG1.Value = Trim(RS(5)) & " " & Trim(RS(6))
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            
            X = X + 1
                    
            Set RG1 = WS.Range(xRangeInizio & X, xRangeFine & X)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &H800000
            RG1.Font.Bold = True
            RG1.Merge
            RG1.Value = Trim(RS(1)) & ", " & Trim(RS(2))
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            
            X = X + 1
            
            Set RG1 = WS.Range(xRangeInizio & X, xRangeFine & X)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &H800000
            RG1.Font.Bold = True
            RG1.Merge
            RG1.Value = Trim(RS(3)) & " " & Trim(RS(4))
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            vConta = 1
        Else
            If InStr(1, Trim(RS(0)), vbCrLf) <> 0 Then
                varArray = Split(Trim(RS(0)), vbCrLf)
                For Each varItem In varArray
                    Set RG1 = WS.Range(xRangeInizio & X, xRangeFine & X)
                    RG1.Font.Name = "Arial"
                    RG1.Font.Size = 10
                    RG1.Font.Color = &H800000
                    RG1.Font.Bold = True
                    RG1.Merge
                    RG1.Value = varItem
                    WS.StandardWidth = 8
                    WS.Cells.RowHeight = 12.75
                    X = X + 1
                    vConta = vConta + 1
                Next
                
                Set RG1 = WS.Range(xRangeInizio & X, xRangeFine & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = Trim(RS(1)) & ", " & Trim(RS(2))
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                
                X = X + 1
                
                Set RG1 = WS.Range(xRangeInizio & X, xRangeFine & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = Trim(RS(3)) & " " & Trim(RS(4))
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
            Else
                Set RG1 = WS.Range(xRangeInizio & X, xRangeFine & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = Trim(RS(0))
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                
                X = X + 1
                
                Set RG1 = WS.Range(xRangeInizio & X, xRangeFine & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = Trim(RS(1)) & ", " & Trim(RS(2))
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                
                X = X + 1
                
                Set RG1 = WS.Range(xRangeInizio & X, xRangeFine & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = Trim(RS(3)) & " " & Trim(RS(4))
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                vConta = 1
            End If
        End If
        RS.Close
        Set RS = Nothing
        'Fine Stampa sezione relativa al Cliente
        
        'Inizio Stampa sezione relativa al Congresso
        X = X + 2
        
        Set RG1 = WS.Range("A" & X, "B" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "Nome Evento"
        WS.Range("A" & X, "B" & X).Interior.ColorIndex = 15
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
        
        strSql = "SELECT Titolo_Congresso " & _
                 "  FROM Documento d, Congresso c" & _
                 " WHERE d.Id_Documento = " & vIdDocumento & _
                 "   AND d.Tipo_Documento = '" & vTipoDoc & "' " & _
                 "   AND d.Id_Congresso = c.Id_Congresso"
                 
        Set RS = Db.Execute(strSql)
        
        X = X + 1
        
        'Se il nome del Congresso è maggiore di 80 caratteri,
        'recupero solamente i primi 80 caratteri
        If Len(Trim(RS(0))) > 80 Then
            vCongresso = Trim(Mid(RS(0), 1, 80))
        Else
            vCongresso = Trim(RS(0))
        End If
        
        vCongressoDiviso = dividiStringa(Trim(RS(0)), 12)
        
        If InStr(1, vCongressoDiviso, vbCrLf) <> 0 Then
            varArray = Split(vCongressoDiviso, vbCrLf)
            For Each varItem In varArray
                Set RG1 = WS.Range("A" & X, "K" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = varItem
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                RG1.BorderAround XlLineStyle.xlContinuous
                
                'Setto la variabile a true
                vACapo = True
                X = X + 1
            Next
        Else
            Set RG1 = WS.Range("A" & X, "K" & X)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &H800000
            RG1.Font.Bold = True
            RG1.Merge
            RG1.Value = Trim(RS(0))
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            RG1.BorderAround XlLineStyle.xlContinuous
            
            'Setto la variabile a false
            vACapo = False
            X = X + 1
        End If
        
        RS.Close
        Set RS = Nothing
        'Fine Stampa sezione relativa al Congresso

[maximum]

        Select Case (vTipoDoc)
            Case "F"
                vEtichetta = "           FATTURA"
                vColore = 17
                vNomeFile = "Fattura"
                vColoreImporto = &HFFFFFF
            Case "P"
                vEtichetta = "       PREVENTIVO"
                vColore = 45
                vNomeFile = "Preventivo"
                vColoreImporto = &H800000
            Case "NC"
                vEtichetta = "      NOTA CREDITO"
                vColore = 13
                vNomeFile = "NotaCredito"
                vColoreImporto = &HFFFFFF
        End Select
        
        'Inizio stampa etichetta del Documento
        X = X + 1
        Set RG1 = WS.Range("J" & X, "K" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 9
        RG1.Font.Color = &HFFFFFF
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = vEtichetta
        WS.Range("J" & X, "K" & X).Interior.ColorIndex = vColore
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
        'Fine stampa etichetta del Preventivo
        
        'Inizio Stampa sezione relativa a Documento N., Data, P. Iva, Codice Fiscale, Condizioni di Pagamento
        X = X + 1
        Set RG1 = WS.Range("A" & X, "B" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = decodificaDocumentoDett(vTipoDoc) & " n."
        WS.Range("A" & X, "B" & X).Interior.ColorIndex = 15
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
        
        Set RG1 = WS.Range("C" & X, "D" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "Data"
        WS.Range("C" & X, "D" & X).Interior.ColorIndex = 15
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
        
        Set RG1 = WS.Range("E" & X, "F" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "Partita Iva"
        WS.Range("E" & X, "F" & X).Interior.ColorIndex = 15
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
        
        Set RG1 = WS.Range("G" & X, "I" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "Codice Fiscale"
        WS.Range("G" & X, "I" & X).Interior.ColorIndex = 15
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
        
        Set RG1 = WS.Range("J" & X, "K" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "Cond. di Pagam."
        WS.Range("J" & X, "K" & X).Interior.ColorIndex = 15
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
        
        X = X + 1
        
        Set RG1 = WS.Range("A" & X, "B" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = vNumDocumento
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
        
        Set RG1 = WS.Range("C" & X, "D" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "'" & vDataDocumento
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
        
        Set RG1 = WS.Range("E" & X, "F" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "'" & IIf(vPiva = "-", "", vPiva)
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
        
        If vCodFisc = "-" Then
            vCodFisc = ""
        Else
            If IsNumeric(Mid(vCodFisc, 1, 1)) Then
                vCodFisc = "'" & vCodFisc
            Else
                vCodFisc = vCodFisc
            End If
        End If
        
        Set RG1 = WS.Range("G" & X, "I" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = vCodFisc
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
        
        Set RG1 = WS.Range("J" & X, "K" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = vCondDocumento
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
        'Fine Stampa sezione relativa a Documento N., Data, P. Iva, Codice Fiscale, Condizioni di Pagamento
        
        'Inizio Stampa sezione dettaglio Documento
        X = X + 2
        
        If vCicli > 1 Then
            strSql = "SELECT TOP " & vTopQuery & " Quantita_Riga_Documento, " & _
                     "       Descrizione_Riga_Documento, " & _
                     "       Iva_Riga_Documento, " & _
                     "       Importo_Riga_Documento " & _
                     "  FROM Riga_Documento " & _
                      "WHERE Id_Documento = " & vIdDocumento
        Else
            'TOP 30 da ripristinare
            strSql = "SELECT TOP 27 Quantita_Riga_Documento, " & _
                     "       Descrizione_Riga_Documento, " & _
                     "       Iva_Riga_Documento, " & _
                     "       Importo_Riga_Documento " & _
                     "  FROM Riga_Documento " & _
                      "WHERE Id_Documento = " & vIdDocumento
        End If
    
        Set RS = Db.Execute(strSql)

[maximum]

        Set RG1 = WS.Range("A" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "Quantità"
        WS.Range("A" & X).Interior.ColorIndex = 15
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
        
        Set RG1 = WS.Range("B" & X, "I" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "Descrizione della Fornitura"
        WS.Range("B" & X, "I" & X).Interior.ColorIndex = 15
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
    
        Set RG1 = WS.Range("J" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "% Iva"
        WS.Range("J" & X).Interior.ColorIndex = 15
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
        
        Set RG1 = WS.Range("K" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "Importo"
        WS.Range("K" & X).Interior.ColorIndex = 15
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
        
        X = X + 1
        
        Select Case (vCicli)
            Case 2
                RS.Move 27 '30 (da ripristinare)
            Case 3
                RS.Move 54 '60 (da ripristinare)
            Case 4
                RS.Move 81 '90 (da ripristinare)
            Case 5
                RS.Move 108 '120 (da ripristinare)
            Case 6
                RS.Move 135 '150 (da ripristinare)
            Case 7
                RS.Move 162 '180 (da ripristinare)
            Case 8
                RS.Move 189 '210 (da ripristinare)
            Case 9
                RS.Move 216 '240 (da ripristinare)
            Case 10
                RS.Move 243 '270 (da ripristinare)
            Case 11         '    (togliere in caso di ripristino)
                RS.Move 270 '300 (togliere in caso di ripristino)
        End Select
        
        If Not RS.EOF Then
            i_iva = 1
            Do While Not RS.EOF
                Set RG1 = WS.Range("A" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = RS(0)
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                RG1.BorderAround XlLineStyle.xlContinuous
                
                'Verifico prima di stampare se la descrizione
                'ha un riferimento al Fornitore
                If InStr(1, Trim(RS(1)), "(") <> 0 Then
                    vDescrizione = Mid(Trim(RS(1)), 1, InStr(1, Trim(RS(1)), "(") - 2)
                Else
                    vDescrizione = Trim(RS(1))
                End If

                Set RG1 = WS.Range("B" & X, "I" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = vDescrizione
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                RG1.BorderAround XlLineStyle.xlContinuous
            
                If i_iva = 1 Then
                    Set RG1 = WS.Range("J" & X)
                    RG1.Font.Name = "Arial"
                    RG1.Font.Size = 10
                    RG1.Font.Color = &H800000
                    RG1.Font.Bold = True
                    RG1.Merge
                    RG1.Value = Trim(RS(2))
                    WS.StandardWidth = 8
                    WS.Cells.RowHeight = 12.75
                    RG1.BorderAround XlLineStyle.xlContinuous
                Else
                    Set RG1 = WS.Range("J" & X)
                    RG1.Font.Name = "Arial"
                    RG1.Font.Size = 10
                    RG1.Font.Color = &H800000
                    RG1.Font.Bold = True
                    RG1.Merge
                    RG1.Value = ""
                    WS.StandardWidth = 8
                    WS.Cells.RowHeight = 12.75
                    RG1.BorderAround XlLineStyle.xlContinuous
                End If
                                
                Set RG1 = WS.Range("K" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = FormatNumber(RS(3), 2)
                With RG1
                    .HorizontalAlignment = xlRight
                End With
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                RG1.BorderAround XlLineStyle.xlContinuous
                
                i_iva = i_iva + 1
                X = X + 1
                contaDettaglio = contaDettaglio + 1
                RS.MoveNext
            Loop
        End If
'Da Ripristinare - INIZIO
'        If contaDettaglio < 30 Then
'            vRigheDettaglio = 30 - contaDettaglio
'Da Ripristinare - FINE
'Da Commentare - INIZIO
        If contaDettaglio < 27 Then
            vRigheDettaglio = 27 - contaDettaglio
'Da Commentare - FINE
            For i = 1 To vRigheDettaglio
                Set RG1 = WS.Range("A" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = ""
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                RG1.BorderAround XlLineStyle.xlContinuous
                
                Set RG1 = WS.Range("B" & X, "I" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = ""
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                RG1.BorderAround XlLineStyle.xlContinuous
                
                Set RG1 = WS.Range("J" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = ""
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                RG1.BorderAround XlLineStyle.xlContinuous
                
                Set RG1 = WS.Range("K" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = ""
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                RG1.BorderAround XlLineStyle.xlContinuous
                
                X = X + 1
            Next
        Else
            contaDettaglio = 0
        End If
        
        RS.Close
        Set RS = Nothing
        'Fine Stampa sezione dettaglio Preventivo

[maximum]

        'Inizio Stampa dati del pagamento
        If vCicli = vNumPagine Then
            If vTipoDoc = "F" Or vTipoDoc = "NC" Then
                Set RG1 = WS.Range("A" & X, "K" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 9
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = "Per il Pagamento della Fattura:"
                WS.Range("A" & X, "K" & X).Interior.ColorIndex = 8
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                RG1.BorderAround XlLineStyle.xlContinuous
                
                X = X + 1
                
                Set RG1 = WS.Range("A" & X, "K" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 9
                RG1.Font.Color = &H800000
                RG1.Font.Bold = False
                RG1.Merge
                RG1.Value = "Bonifico bancario intestato a: Clicart di G. La Rosa & C. sas - Banco di Sicilia - IBAN: IT16J0102004794000300575393"
                WS.Range("A" & X, "K" & X).Interior.ColorIndex = 8
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                RG1.BorderAround XlLineStyle.xlContinuous
                
                X = X + 1
                
                Set RG1 = WS.Range("A" & X, "K" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 9
                RG1.Font.Color = &H800000
                RG1.Font.Bold = False
                RG1.Merge
                RG1.Value = "Assegno Bancario non trasferibile intestato a: Clicart di G. La Rosa & C. sas"
                WS.Range("A" & X, "K" & X).Interior.ColorIndex = 8
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                RG1.BorderAround XlLineStyle.xlContinuous
                
                X = X + 1
            End If
        End If
        'Fine Stampa dati del pagamento
        
        'Inizio Stampa sezione Totale Fornitura Euro, Spese Incasso, Trasp. Accessori, Bolli
        Set RG1 = WS.Range("A" & X, "C" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "Totale Fornitura Euro"
        WS.Range("A" & X, "B" & X).Interior.ColorIndex = 15
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
    
        Set RG1 = WS.Range("D" & X, "E" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = FormatNumber(vTotImpFornEuro, 2)
        With RG1
            .HorizontalAlignment = xlRight
        End With
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
    
        Set RG1 = WS.Range("F" & X, "G" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "Spese Incasso"
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
    
        Set RG1 = WS.Range("H" & X, "I" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "Bolli"
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
    
        X = X + 1
    
        Set RG1 = WS.Range("A" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "Cod. Iva"
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
    
        Set RG1 = WS.Range("B" & X, "C" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "Spese Accessorie"
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
    
        Set RG1 = WS.Range("D" & X, "E" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = "Imponibile"
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        WS.Range("D" & X, "E" & X).Interior.ColorIndex = 15
        RG1.BorderAround XlLineStyle.xlContinuous
    
        Set RG1 = WS.Range("F" & X, "G" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = Me.txtIvaPercVentiPerc.Text
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        RG1.BorderAround XlLineStyle.xlContinuous
    
        Set RG1 = WS.Range("H" & X, "I" & X)
        RG1.Font.Name = "Arial"
        RG1.Font.Size = 10
        RG1.Font.Color = &H800000
        RG1.Font.Bold = True
        RG1.Merge
        RG1.Value = Me.txtIvaAl.Text
        WS.StandardWidth = 8
        WS.Cells.RowHeight = 12.75
        WS.Range("H" & X, "I" & X).Interior.ColorIndex = 15
        RG1.BorderAround XlLineStyle.xlContinuous
        'Fine Stampa sezione Totale Fornitura Euro, Spese Incasso, Trasp. Accessori, Bolli
        
        If vCicli = vNumPagine Then
            'Inizio Stampa sezione Totale Imponibile, Totale Iva, Acconto e Totale Documento
            X = X + 2
            Set RG1 = WS.Range("I" & X, "J" & X)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &H800000
            RG1.Font.Bold = True
            RG1.Merge
            RG1.Value = "Totale Imponibile"
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
        
            Set RG1 = WS.Range("K" & X)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &H800000
            RG1.Font.Bold = True
            RG1.Merge
            RG1.Value = FormatNumber(vTotImponibile, 2)
            With RG1
                .HorizontalAlignment = xlRight
            End With
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            RG1.BorderAround XlLineStyle.xlContinuous
        
            X = X + 1
        
            'Se si tratta di Fattura, stampo lo stato della fattura e la relativa data
            If vTipoDoc = "F" Then
                Set RG1 = WS.Range("A" & X, "B" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = "Stato Fattura"
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                RG1.BorderAround XlLineStyle.xlContinuous
                
                Set RG1 = WS.Range("C" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = IIf(vStatoFattura = "S", "Sospesa", "Pagata")
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                RG1.BorderAround XlLineStyle.xlContinuous
            
                Set RG1 = WS.Range("E" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = "Data Rif."
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                RG1.BorderAround XlLineStyle.xlContinuous
            
                Set RG1 = WS.Range("F" & X, "G" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = "'" & vDataRiferimento
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
                RG1.BorderAround XlLineStyle.xlContinuous
            End If

[maximum]

            Set RG1 = WS.Range("I" & X, "J" & X)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &H800000
            RG1.Font.Bold = True
            RG1.Merge
            RG1.Value = "Totale I.V.A."
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
        
            Set RG1 = WS.Range("K" & X)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &H800000
            RG1.Font.Bold = True
            RG1.Merge
            RG1.Value = FormatNumber(vTotIva, 2)
            With RG1
                .HorizontalAlignment = xlRight
            End With
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            RG1.BorderAround XlLineStyle.xlContinuous
        
            X = X + 1
        
            Set RG1 = WS.Range("I" & X, "J" & X)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &H800000
            RG1.Font.Bold = True
            RG1.Merge
            RG1.Value = "Acconto"
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
        
            Set RG1 = WS.Range("K" & X)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &H800000
            RG1.Font.Bold = True
            RG1.Merge
            RG1.Value = FormatNumber(vAcconto, 2)
            With RG1
                .HorizontalAlignment = xlRight
            End With
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            RG1.BorderAround XlLineStyle.xlContinuous
        
            X = X + 1
        
            vDocumento = decodificaDocumentoDett(vTipoDoc)
            
            If vDocumento = "Nota di Credito" Then
                Set RG1 = WS.Range("H" & X, "J" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = "        Totale " & vDocumento
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
            Else
                Set RG1 = WS.Range("I" & X, "J" & X)
                RG1.Font.Name = "Arial"
                RG1.Font.Size = 10
                RG1.Font.Color = &H800000
                RG1.Font.Bold = True
                RG1.Merge
                RG1.Value = "Totale " & vDocumento
                WS.StandardWidth = 8
                WS.Cells.RowHeight = 12.75
            End If
            
            Set RG1 = WS.Range("K" & X)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = vColoreImporto
            RG1.Font.Bold = True
            RG1.Merge
            RG1.Value = FormatNumber(vTotDocumento, 2)
            With RG1
                .HorizontalAlignment = xlRight
            End With
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            WS.Range("K" & X).Interior.ColorIndex = vColore
            RG1.BorderAround XlLineStyle.xlContinuous
            'Fine Stampa sezione Totale Imponibile, Totale Iva, Acconto e Totale Documento
        End If
        
        If vCicli < vNumPagine Then
            numero = X + 5
            'Inizio sezione stampa numero di pagina
            Set RG1 = WS.Range("E" & numero)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &H800000
            RG1.Merge
            RG1.Value = "Pagina"
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            
            Set RG1 = WS.Range("F" & numero)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 8
            RG1.Font.Color = &H800000
            RG1.Merge
            RG1.Value = "'" & vCicli & "/" & vNumPagine
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            'Fine sezione stampa numero di pagina
        Else
            'Inizio sezione stampa numero di pagina
            Set RG1 = WS.Range("E" & X)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 10
            RG1.Font.Color = &H800000
            RG1.Merge
            RG1.Value = "Pagina"
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            
            Set RG1 = WS.Range("F" & X)
            RG1.Font.Name = "Arial"
            RG1.Font.Size = 8
            RG1.Font.Color = &H800000
            RG1.Merge
            RG1.Value = "'" & vCicli & "/" & vNumPagine
            WS.StandardWidth = 8
            WS.Cells.RowHeight = 12.75
            'Fine sezione stampa numero di pagina
        End If
        
    Next
    
    Me.MousePointer = vbDefault
    
    fFileName = vNomeFile & "_Cliente_N" & vNumDocumento & "_" & Replace(replicaChrInvalidi(vCongresso), " ", "_") & "_" & Format(vDataDocumento, "yyyy") & ".xls"
    
    If Err.Number <> 32755 Then
       On Error GoTo annullaSalvataggio
       WB.SaveAs App.Path & "\report\" & fFileName
       WB.Close
       AX.Workbooks.Open App.Path & "\report\" & fFileName
       AX.Visible = True
    Else
       MsgBox "Operazione annullata"
       WB.Close False
       AX.Quit
    End If
    
    Set WS = Nothing
    Set WB = Nothing
    Set AX = Nothing
    
    Exit Sub

annullaSalvataggio:
    If Err.Number = 1004 Then
        MsgBox "Operazione annullata"
        WB.Close False
        AX.Quit
        Set WS = Nothing
        Set WB = Nothing
        Set AX = Nothing
    End If
    Exit Sub
    
Error:
    MsgBox "Si è verificato il seguente errore: " & vbCrLf & Err.Description, vbCritical + vbApplicationModal, "Gestione Fatture"
    Set WS = Nothing
    Set WB = Nothing
    Set AX = Nothing
    Me.MousePointer = vbDefault
    
End Sub

[Stoicenko]

Suggerisco un bello zip da scaricare perchè così è impossibile capire il problema..

[LeleFT]

Quando il codice è corposo, come nel tuo caso, è sempre bene creare un file separato da far scaricare e postare solamente la parte di codice incriminata o quella che si pensa possa essere la responsabile del problema.

Postare tutto il codice completo (sebbene ammirevole) rende prolisso il post, che diventa ingestibile.


Ciao.