Salve a tutti,
avrei la necessità di creare un file di word per la stampa di etichette con tre colonne e 8 righe per pagina.
Con asp uso un'area ripetuta verticale e tutto funziona correttamente anche stampando le etichette da video.

In word però non riesco a far funzionare l'area ripetuta orizzontale.
Ecco il codice:
codice:
<!--#include file="Connections/contattiAleDc.asp" -->
<%
Dim file
file = "documento.doc"
With Response
    .Buffer = True
    .ContentType = "application/msword"
    .AddHeader "content-disposition", "inline; filename=" & file
Dim rsElencoContatti
Dim rsElencoContatti_cmd
Dim rsElencoContatti_numRows
Set rsElencoContatti_cmd = Server.CreateObject ("ADODB.Command")
rsElencoContatti_cmd.ActiveConnection = MM_contattiAleDc_STRING
rsElencoContatti_cmd.CommandText = "SELECT * FROM tb_contatti ORDER BY nome ASC"
rsElencoContatti_cmd.Prepared = true
Set rsElencoContatti = rsElencoContatti_cmd.Execute
rsElencoContatti_numRows = 0
Dim HLooper1__numRows
HLooper1__numRows = 2300
Dim HLooper1__index
HLooper1__index = 0
rsElencoContatti_numRows = rsElencoContatti_numRows + HLooper1__numRows
startrw = 0
endrw = HLooper1__index
numberColumns = 10
numrows = 230
while((numrows <> 0) AND (Not rsElencoContatti.EOF))
 startrw = endrw + 1
 endrw = endrw + numberColumns
While ((startrw <= endrw) AND (Not rsElencoContatti.EOF))
    
 response.write "<table border='0' style='float: left; margin-left: 0px; width: 69mm; max-width: 69mm; height: 36mm; font-weight: normal; font-family: Verdana, Geneva, sans-serif; word-wrap: break-word; page-break-inside: avoid; padding-top: 0px; top: 0px; font-size:9pt;'>"
response.write "<tr>"
response.write "<td valign='top'><img src='http://www.alessandradicastro.com/agenda/immagini/null.png' style='width:5mm; height:36mm;'/></td>"
response.write "<td>"
if rsElencoContatti("titolo") <> "" Then
response.write rsElencoContatti("titolo") & VBCrLf
End if
if rsElencoContatti("nome") <> "" Then
response.write rsElencoContatti("nome")
End if
if rsElencoContatti("secondoNome") <> "" Then
response.write rsElencoContatti("secondoNome") & VBCrLf
End if
if rsElencoContatti("cognome") <> "" Then
response.write rsElencoContatti("cognome") & VBCrLf
End if
if rsElencoContatti("titoloStraniero") <> "" Then
response.write rsElencoContatti("titoloStraniero") & VBCrLf
End if
response.write rsElencoContatti("viaAbitazione") & VBCrLf
response.write rsElencoContatti("cittaAbitazione")
if rsElencoContatti("provinciaAbitazione") <> "" Then
response.write "&nbsp;(" & rsElencoContatti("provinciaAbitazione") & ")"
end if
if rsElencoContatti("capAbitazione") <> "" Then
response.write "&nbsp;(" & rsElencoContatti("capAbitazione") & ")"
end if
response.write "<br/>"
response.write rsElencoContatti("nazioneAbitazione")
response.write "</td>"
response.write "<td valign='top'><img src='http://www.alessandradicastro.com/agenda/immagini/null.png' style='width:5mm; height:36mm;'/></td>"
response.write "</tr>"
response.write "</table>"
 startrw = startrw + 1
 rsElencoContatti.MoveNext()
 Wend
 numrows=numrows-1
 Wend
    .Flush
    .End
End With
%>
E' una limitazione d word?