codice:
        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)