Prenotazione a magazzino + stampa scheda consegna

[mschievano]

Ciao,
come indicato sinteticamente dal Titolo ho la necessita di prendere alcuni dati di prenotazione di apparati in magazzino e fare in modo che quando clicco il bottone prenota , oltre a modificare il DB (parte già fatta) , venga stampato un modulo che varia solo nei campi utilizzati dall'utente.

es:

auto= fiat, renault, ...
modello= uno, megane, ...

come dicevo la parte di aggiornamento/cancellazione/modifica del db è fatta da tempo e funzionante. Devo solo aggiungere la stampa del file excel coi dati compilati.

Sapete aiutarmi o dirmi dove trovo del codice già fatto?

[mschievano]

bene o male a scrivere il codice ed a generare un file rtf completo con tutti i campi.

Banalmente: con che comando ASP lo mando in stampa ?

grazie

[deleted_c]

document.print() di javascript...

[mschievano]

Originariamente inviato da cicciopie
document.print() di javascript...

anche se il file non è aperto?

purtroppo deve esserci un errore nel codice, visto che il file nuovo non viene valorizzato, e resta bianco:

if agg=1 then
	' parte di stampa del file dinamico
	fileRTF="appdemo.rtf"
	dim f,fso
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	Set f = fso.OpenTextFile(Server.MapPath(fileRTF),1)
	Documento=f.ReadAll
	Set f = nothing
	'sostituisco il nome della persona che chiede
	Documento = replace(Documento, "[richiedente]", nome)
	'sostituisco il cliente
	Documento = replace(Documento, "[cliente]", cli)
	Documento = replace(Documento, "[apparato]", marc & "-" & mode)
	Documento = replace(Documento, "[qta]", 1)
	Documento = replace(Documento, "[dal]", dal)
	Documento = replace(Documento, "[al]", al)
	Documento = replace(Documento, "[idprod]", idprodotto)
	'fine della compilazione
	' creo il file da stampare
	Set f = fso.openTextFile(Server.MapPath("appdemook.rtf"),2,True)
	f.Write Documento
	' stampa il file creato

	'fine
	set f = nothing
	set fso=nothing
		
end if

[mschievano]

anche la creazione.

come stampo senza aprire?

[mschievano]

Originariamente inviato da mschievano
anche la creazione.

come stampo senza aprire?

ho trovato una parte di codice che può essere utile, ma che mi da un errore:

<%
'parte di stampa file
file = "c:\inetpub\wwwroot\visite\appdemook.rtf"
			
Set objWord = CreateObject("Word.Application")
objWord.Visible = false
objWord.Documents.Open (file)
objWord.ActiveDocument.print (file)
objWord.ActiveDocument.Close
objWord.Quit
Set objWord = Nothing
%>	


---------------
Tipo di errore:
Microsoft Word (0x800A175D)
Impossibile aprire la memoria macro.
/printprenota.asp, line 7 (è quella relativa all'openfile)

[mschievano]

in 2 step, anche se non mi piace molto.

1 step: prenotazione. Vengono valorizzate tutte le variabili che aggiornano il db e verranno utilizzate per la compilazione del modulo. Alla conferma della prenotazione , compare un link con scritto "stampa il modulo"

2 step: la pagina che stampa il modulo, crea un rtf basato su un foglio con variabili e sostituisce le etichette con quanto richiesto. Va però stampato manualmente dall'utente.

step 1
if agg=1 then
' parte di stampa del file dinamico
fileRTF="appdemo.rtf"
dim f,fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath(fileRTF),1)
Documento=f.ReadAll
Set f = nothing
'sostituisco il nome della persona che chiede
Documento = replace(Documento, "[richiedente]", nome)
'sostituisco il cliente
Documento = replace(Documento, "[cliente]", cli)
Documento = replace(Documento, "[apparato]", marc & "-" & mode)
Documento = replace(Documento, "[qta]", 1)
Documento = replace(Documento, "[dal]", dal)
Documento = replace(Documento, "[al]", al)
Documento = replace(Documento, "[idapp]", ime)
'fine della compilazione
' creo il file da stampare
Set f = fso.openTextFile(Server.MapPath("/visite/prenota.rtf"),2,True)
f.Write Documento
set f = nothing
set fso=nothing

step 2
<a href="/visite/prenota.rtf" target="_blank" style="cursor: hand">
[img]images_css/print.gif[/img]
stampa prenotazione - si aprirà un file word da inviare in stampa . Grazie.
</a>