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

[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