garry
Anmeldedatum: 25.10.2005
Beiträge: 442
Wohnort: switzerland
|
 Verfasst am: Sa Nov 25, 2006 8:05 pm Titel: .TXT > .DOC |
 |
|
Hier ein program welches von xy.ahk erstelltes Textfile (z.B. Berechnungen)
wie ein document druckt (font, Fett, linker Rand, Bilder, Linien etc...)
rghdruck Anleit.txt ;DRUCKEN
rghlist Anleit.txt ;ANSCHAUEN
http://www.profan.de/
http://www.profan.de/download/rghdruck.zip
| Code: | F1=test21.txt
PICT=CAT.BMP
myDate:=A_Now
FormatTime, Date_a, %myDate%, yyyy.MM.dd HH:mm:ss
FormatTime, Date_b, %myDate%, dddd
TDS=%Date_a% %Date_b%
Filedelete,%F1%
Fileappend,$ANSI`r`n,%F1%
Fileappend,$DO LOADSIZEDBMP %PICT% `,50`,0`,300`,100`r`n,%F1% ;picture X Y width height
Fileappend,$DO MOVETO 0`,110`r`n,%F1% ;move X Y
Fileappend,~S~~1~ http://www.profan.de RGHDRUCK ~D.xx.xxx~ - ~Z:xx~ - ~#~ -`r`n,%F1%
Fileappend,$DO USEFONT Lucida Console`,11`,6`r`n,%F1% ;font height width
Fileappend,~>006~`r`n,%F1% ;left margin
Fileappend,~0~`r`n,%F1% ;distance between lines
Fileappend,File=%F1% Printed=%TDS%`r`n,%F1%
Fileappend,----------------------------------------------------------`r`n,%F1%
Fileappend,DATE PRODUCT IN OUT SALDO `r`n,%F1%
Fileappend,----------------------------------------------------------`r`n,%F1%
Fileappend,2006-12-06 Television 600 600 `r`n,%F1%
Fileappend,2006-12-06 Radio 100 700 `r`n,%F1%
Fileappend,2006-12-06 Calculator 50 750 `r`n,%F1%
Fileappend,$DO USEBRUSH 5`,2`r`n,%F1% ;fill diagonal green
Fileappend,$DO RECTANGLE 40`,250`,400`,400`r`n,%F1% ;rectangle
Fileappend,$DO USEPEN 2`,1`,4`r`n,%F1% ;lineart thick color
Fileappend,$DO LINE 40`,410`,400`,410`r`n,%F1% ;LINE from to
;.......... RGH-LIST must closed before RGH-DRUCK start ...........
run,%comspec% /c rghlist "%F1%",,hide
WinWait,RGH-LIST 2.0,,6
IfWinexist,RGH-LIST 2.0
{
sleep,2000
msgbox,262147,PRINT,Want you PRINT ?
ifmsgbox,NO
return
ifmsgbox,Cancel
return
}
Winclose,RGH-LIST 2.0
sleep,1000
run,%comspec% /c rghdruck "%F1%",,hide
;.....................................................................
ExitApp
|
|
|
FAQ
Suchen
Mitgliederliste
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
