Salve e chiedo scusa se riposto una domanda che forse ho già fatto in precedenza ma non ricordo.
I file word creati dinamicamente posso essere ruotati (ad esempio in orizzontale) ? Io non riesco e anzi credo di aver capito che non sia possibile ? Qualcuno ne sa di più in proposito ? Grazie
Posto il codice che uso
[CODE]
<%
'Dichiarazione delle variabili
Dim rs, strSQL, strConn
'Creo la SELECT con SQL per ricavare dati dal database
strsql=" SELECT * FROM positivi WHERE ritiro LIKE '"&ritiro&"' AND capo LIKE '"&capo&"' ORDER BY cognome ASC"
'Creo la stringa di connessione al database access
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../../database/positivi.mdb")&";Persist Security Info=False"
'Creo l’oggetto di tipo ADOB.Recordset (Recordset=lettura)
Set rs = Server.CreateObject("ADODB.Recordset")
'Apro oggetto creato sopra e li passo la stringa SQL e la stringa di connessione al db
rs.Open strSQL, strConn
' nome da dare al file
FileName = "giornaliero_ritiro.doc"
Response.Buffer = true
Response.ContentType = "mso-page-orientation:landscape"
Response.ContentType = "application/msword"
Response.AddHeader "content-disposition", "inline; filename= " & FileName
'Il ciclo WHILE per leggere tutti dati dal database
WHILE NOT rs.EOF AND NOT rs.BOF
'Passo al successivo recordset nel database
rs.MoveNext()
'Ritorna al ciclo while se la condizione (NOT rs.EOF AND NOT rs.BOF) è vera
WEND
'Chiude oggetto Recordset
rs.Close
'Libera memoria dal oggetto Recordset
Set rs = Nothing
Response.Flush
Response.End
%>
Rispondi quotando
