Re: print preview?

[vastaus aiempaan viestiin]

Pauli Posti kirjoitti mm.:
> Vielä kysyisin, onko tuo Kimmon tekemä sukro jo ns. hyllytavaraa
> uudemmissa versioissa kuin 1.05? Allekirjoittaneella on edes yksi kyky
> eli kompuroida jo alarapuilla. Mutta, jos ei mihinkään kurota, niin ei
> kapsahda edes katajaan. Sen Adobe abrobaatturin sentään onnistuin
> asentamaan jollakin lailla, ainakin rekisteröinnin ilmoitettiin
> onnistuneen. terv. Pauli Posti

Kyllä tuo Adobe abrobaatturi on ainakin kumlauden arvoinen, mutta
mennäkseni katajaan:

Ko. sukro on ollut hyllytavaraa vasta viimeisissä versioissa.
Juteltuani asiasta sukron tekijän (Kimmon) kanssa päätimme lähettää
sukron PS-PDF listauksen tämän viestin yhteydessä, jotka muutkin
hyvää sukroa tarvitsevat saavat sen käyttöönsä.

Toimintaohjeet:
1) Siirrä alla oleva teksti (tai koko viesti) leikepöytään.
2) Ota käyttöön Survossa tyhjä toimituskenttä.
3) Jos hallussasi on uusin Survo (ver.1.15), kopioi leikepöydän
   sisältö pehmonapilla p (paste) toimituskenttään.
   Jos ei ole uusinta versiota, on varminta ottaa välillä käyttöön
   esim. NOTEPAD-ohjelma, liittää leikepöydän sisältö siihen ja
   tallettaa teksti tekstitiedostoon esim. K.TXT, joka kopioidaan Survon
   toimituskenttään komennolla
   LOADW K.TXT
4) Kun teksti on toimituskentässä, aktivoi listauksen edellä oleva
   DELETE komento pitäen kohdistinta kontrollisarakkeessa, jolloin
   sukrokoodin edellyttämät kontrollimerkit siirtyvät ao. sarakkeeseen.
5) Lopuksi aktivoi TUTSAVE-komento, joka tallettaa sukron PS-PDF
   oikeaan paikkaan.
6) Jotta sukro löytää Acrobat-ohjelmat, SURVO.APU-tiedostossa on
   oltava ohjelmien polkunimi muodossa
   acrobat_path=C:\PROGRA~1\Adobe\Acroba~1.0
   Tämä vastaa Acrobatin oletusasetuksia ja sen pitäisi olla valmiina
   SURVO.APU-tiedostossa Survo-asennuksen jäljiltä.

DELETE / Vie kohdistin kontrollisarakkeeseen ja aktivoi tämä rivi.
*TUTSAVE <Survo>\U\S\PS-PDF / Talleta sukro tällä komennolla.
/ Convert PS file to PDF file by Acrobat Distiller and
/ show the result by Acrobat. Full Acrobat package required.
/ K.Vehkalahti 23.8.2001 (23.8.2001) (3.1.2002)
/ /PS-PDF K.PS / makes K.PDF in the same directory
/ ------------------------------------------------------------------
*{tempo -1}{init}{save stack}{disp off}{W1=PSPDF}{call SUR-SAVE}
*{break on}{del stack}{load stack}
- if W1 '=' ? then goto Help
- if W1 '=' (empty) then goto Help
/
/ def Wps=W1 Wpdf=W2 Wdir=W3 Wacropath=W4 Wline=W5
/ def WDistiller=W6 WAcrobat=W7 Wx=W8 Wi=W9
/
*{line start}{erase}{erase}{pre}F
/
*{save datapath Wdir}{save system acrobat_path Wacropath}
- if Wacropath '<>' {} then goto A1
*{message}        System parameter acrobat_path not found!@{goto ERR}
+ A1: {}
/
*{print Wacropath}\Distillr\AcroDist.exe{line start}
*{save word WDistiller}{erase}
/
*{print Wacropath}\Acrobat\Acrobat.exe{line start}{save word WAcrobat}
*{erase}
/
*CHECK {print WDistiller}{act}{next word}{save word Wx}{line start}
*{erase}
- if Wx '=' OK then goto A2
*{message}        Adobe Acrobat Distiller program not found!@
*{goto ERR}
+ A2: {}
/
*CHECK {print WAcrobat}{act}{next word}{save word Wx}{line start}
*{erase}
- if Wx '=' OK then goto A3
*{message}        Adobe Acrobat program not found!@{goto ERR}
+ A3: {}
/
*CHECK {print Wps}{act}{next word}{save word Wx}{line start}{erase}
- if Wx '=' OK then goto A4a
*CHECK {print Wdir}{print Wps}{act}{next word}{save word Wx}
*{line start}{erase}
- if Wx '=' OK then goto A4b
*{message}        Given PostScript (PS) file does not exist!@
*{goto ERR}
+ A4a: {goto A4}
+ A4b: {print Wdir}{print Wps}{line start}{save word Wps}{erase}
+ A4: {print Wps}{line start}{find .}{r}{erase}pdf{home}
*{save word Wpdf}{erase}FILE DEL {print Wpdf}{act}{line start}{erase}
/
*>START /MIN {print WDistiller} {print Wps}{act}{line start}{erase}
/
/ Must wait until Distiller is ready!
/ (That's why PDF was deleted above.)
/
*{Wi=0}
+ A5: {Wi=Wi+1}
/
*CHECK {print Wpdf}{act}{next word}{save word Wx}{line start}{erase}
- if Wx '=' OK then goto A6
*WAIT 1{act}{home}{erase}
- if Wi < 30 then goto A5
*{message}        Portable Document File (PDF) was not created!@
*{goto ERR}
+ A6: {}
/
*>START /MAX {print WAcrobat} {print Wpdf}{act}{line start}{erase}
/
*{print Wline}{goto E}
/ ---------------------------------
+ Help: {message}        /PS-PDF <file.PS>  creates <file.PDF> and ope
*ns it with Adobe Acrobat.@
+ ERR: {disp on}{disp off}
- on key
-    key _: continue
-   wait 600
*{goto E}
/ def W1=W1
+ E: {W1=PSPDF}{call SUR-RESTORE}{message}@{pre}f{disp on}{tempo +1}
*{end}
*

• Re: print preview? (Pauli Posti 18.1.2002 17:42)

Luettelo keskustelunaiheista

Survo-keskustelupalstan (2001-2013) viestit arkistoitiin aika ajoin sukrolla, joka automaattisesti rakensi viesteistä (yli 1600 kpl) HTML-muotoisen sivukokonaisuuden. Vuoden 2013 alusta Survo-keskustelua on jatkettu entistäkin aktiivisemmin osoitteessa forum.survo.fi. Tervetuloa mukaan!