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)