he añadido un ajuste por si hacemos un query de pocas columnas y queremos imprimir en vertical. Partimos de la idea que enviamos si es horizontal o vertical mediante la variable "orientacion", por defecto se imprimirá apaisado si no enviamos variable alguna.
Añado sólo el código nuevo que sustituye el anterior:
Código:
orientacion = request.querystring("orientacion")
if orientacion = "" then orientacion = "L"
pdf.CreatePDF orientacion,"mm","A4"
if orientacion = "L" then
if 282/espacios <= 1.1 then
px = 4
mm = 1.1
elseif 282/espacios <= 1.5 then
px = 5
mm = 1.45
elseif 282/espacios <= 1.6 then
px = 6
mm = 1.55
elseif 282/espacios <= 1.9 then
px = 7
mm = 1.80
elseif 282/espacios <= 2.1 then
px = 8
mm = 2.05
elseif 282/espacios <= 2.3 then
px = 9
mm = 2.20
else
px = 10
mm = 2.54
end if
end if
if orientacion = "P" then
if 196/espacios <= 1.1 then
px = 4
mm = 1.05
elseif 196/espacios <= 1.5 then
px = 5
mm = 1.45
elseif 196/espacios <= 1.6 then
px = 6
mm = 1.55
elseif 196/espacios <= 2 then
px = 7
mm = 1.95
elseif 196/espacios <= 2.3 then
px = 8
mm = 2.25
elseif 196/espacios <= 2.6 then
px = 9
mm = 2.55
else
px = 10
mm = 2.95
end if
end if
that's all folks !!!