| |
| |
|
| - Page 1 - |
|
Julian
Schmidt | Hello Community,
i'd gladly some ask around Print with XProfan clarify.
to that Topic: i'm just thereby my schedule-Tool (Perhaps. remind itself some on this) To update. now try I straight The Druckfunktion on Vorderman To bring.
I put me the Print so to.
If one on Print clicking comes one Druckerauswahldialog, subsequently can Settings meet and print. If in the Druckerauswahldialog Landscape clicked watts should something other printed go as in the Hochformat.
in the Landscape becomes the schedule once over The entire length the Blattes printed.
in the Hochformat becomes the schedule multiple among themselves on The entire wide the Blattes printed, so too so the entire leaf ausgefüllt is.
now should one to that a detect whether athwart-, or Hochformat select watts.
and to that second should The Size the Blattes determined go, so one whom schedule Center can.
target this Beitrags is it first integrally simple in the high-, Landscape a line, and a Text Centered, in the jeweiligen stature-Align(edge of ~50px) to print.
CompileMarkSeparation
LG
Julian57 |
|
| |
| |
| |
|
 |
« this Posting watts as Solution marked. » |
|
| - Page 2 - |
|
Thomas
Freier | there's converting angesagt. You get z.B. Blattbreite in mm. then are the ~H&*3.425 Bildpx .
CompileMarkSeparation $H Windows.ph
Declare H&,V&
cls
var rand%=75
var pxmm!=3.425
var pymm!=3.35
StartPrint "*Test"
if %Printing
H& = ~GetDeviceCaps(&PDC,~HORZSIZE)
V& = ~GetDeviceCaps(&PDC,~VERTSIZE)
UsePen 0,1,@RGB(0,0,31)
If H& > V&'Querformat
Line rand%,100 - ((H&*pxmm!)-rand%),100
Else'Hochformat
Line rand%,100 - ((H&*pxmm!)-rand%),100
Endif
EndPrint
Endif
Verwendest You Druckerpx (APX%) must You your Bildschirmpx (edge%) converting. |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 08/20/11 ▲ |
|
| |
|
|
|
| |
| |
| - Page 1 - |
|
Rolf
Koch | and what me here wundert: none goes on your geilen saying one "ob the printer manly or weiblich" is. I Have me again gekringelt to laugh. thanks if, for this saying !!!!  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | what is because "Leider nicht"? get You no values or what? by me come namely values into variables. and of course quite very The, The I with of/ one Din A4-Page erwaten would. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 08/20/11 ▲ |
|
| |
|
|
Thomas
Freier | is already witty, as data determined will be.
Jörg erwatet tappt im dunkeln  [...] 
and Julian fishing in the Trüben  [...] |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 08/20/11 ▲ |
|
| |
|
| |
| |
| - Page 2 - |
|
|
Julian
Schmidt | The question is Yes always whether The right values determined go, whether the the worth is whom I Search. How becomes it whom with you ausgedruckt?
CompileMarkSeparation $H Windows.ph
Declare H&,V&, rand_px&, APX%, APY%
rand_px&=75
cls
StartPrint "*Test"
if %Printing
H& = ~GetDeviceCaps(&PDC,~HORZSIZE)
V& = ~GetDeviceCaps(&PDC,~VERTSIZE)
APX%= ~GetDeviceCaps(&PDC,~HORZRES)
APY%= ~GetDeviceCaps(&PDC,~VERTRES)
'APX% und APY% evtl. vertauschen
If H& > V&'Querformat
Line rand_px&,rand_px& - (APY%-rand_px&),rand_px&
Else'Hochformat
Line rand_px&,rand_px& - (APX%-rand_px&),rand_px&
Endif
EndPrint
Endif
|
|
| |
| |
| |
|
|
Thomas
Freier | there's converting angesagt. You get z.B. Blattbreite in mm. then are the ~H&*3.425 Bildpx .
CompileMarkSeparation $H Windows.ph
Declare H&,V&
cls
var rand%=75
var pxmm!=3.425
var pymm!=3.35
StartPrint "*Test"
if %Printing
H& = ~GetDeviceCaps(&PDC,~HORZSIZE)
V& = ~GetDeviceCaps(&PDC,~VERTSIZE)
UsePen 0,1,@RGB(0,0,31)
If H& > V&'Querformat
Line rand%,100 - ((H&*pxmm!)-rand%),100
Else'Hochformat
Line rand%,100 - ((H&*pxmm!)-rand%),100
Endif
EndPrint
Endif
Verwendest You Druckerpx (APX%) must You your Bildschirmpx (edge%) converting. |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 08/20/11 ▲ |
|
| |
|
|
Julian
Schmidt | super, it functions ^^ 
Very calm! Do I now only still in my Program umsetzen!
with further ask login I again, first thanks on any! |
|
| |
| |
| |
|
|
 | be likewise interested!
If you there NEN Minispeibiel parat have then Please with whom Quelltexten einreihen.  |
|
| |
| |
| |
|
|
Julian
Schmidt | hmmmmm.....will be look whether I what zurecht write, unless as example The line use ^^
tommorrow vlt, if I not on of my Page bastle, which I aktualisiere. |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Thomas
Freier | means, a real Solution there not. here only one simples example with of/ one RTF and what different software from it make. any Borders were on 0 tuned. one ought to from Sicherheitsgünden never the leaf fully ausreizen.
 |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 08/21/11 ▲ |
|
| |
|
|
Julian
Schmidt | iF (20.08.11)
If you there NEN Minispeibiel parat have then Please with whom Quelltexten einreihen.
here time a neckline from my Prog. to drawing of/ one schedule-scheduler. yet have I only around the Landscape gekümmert. Hochformat comes but too yet on it, and then I will this example here complement, and a Snippet create!
CompileMarkSeparation $H Windows.ph
declare zeile%, top% , wtag$
var rand%=70
var pxmm!=3.425
var pymm!=3.35
StartPrint "*Stundenplan"
if %Printing
var H& = ~GetDeviceCaps(&PDC,~HORZSIZE)'Physikalische Breite in mm
var V& = ~GetDeviceCaps(&PDC,~VERTSIZE)'Physikalische Höhe in mm
var width&=H&*pxmm!'Physikalische Breite in Pixeln
var height&=V&*pymm!'Physikalische Höhe in Pixeln
var reihen_nummer%=width&/24'Breite der Spalte für die Stundennummer
UsePen 0,1,RGB(0,0,31)
If H& > V&'Wenn Querformat aufgewählt wurde
top%=height&/4'Beginn der Stundenplan Tabelle
zeile%=(height&-(top%+rand%))/13'Höhe einer Zeile der Tabelle
UsePen 0,2,255
Whileloop 13'Malen aller horizontalen Spalten
Line rand%,top%+zeile%*&loop - (width&-rand%),top%+zeile%*&loop
Endwhile
Line rand% ,top% - rand%,top%+(zeile%*13)'Erste vertiakale Linie
whileloop 0,6'Malen der restligen vertikalen Linien
case &loop=0 : Line (rand%+reihen_nummer%)+(((width&-reihen_nummer%)-(rand%*2))/6*&loop),top%+zeile% - (rand%+reihen_nummer%)+(((width&-reihen_nummer%)-(rand%*2))/6*&loop),top%+(zeile%*13)
case &loop<>0 : Line (rand%+reihen_nummer%)+(((width&-reihen_nummer%)-(rand%*2))/6*&loop),top% - (rand%+reihen_nummer%)+(((width&-reihen_nummer%)-(rand%*2))/6*&loop),top%+(zeile%*13)
Endwhile
TextColor 0,-1
UseFont "Times New Roman",width&/35,0,1,0,0
whileloop 12'Liniennummern zeichnen
DrawText rand%-2, top%+(zeile%*&loop)+2, rand%+reihen_nummer%, (top%+zeile%)+(zeile%*&loop), Str$(&loop), 1
Endwhile
whileloop 0,5'Wochentage, 'Zeiten' aufmalen
case &loop<>0 : wtag$=Substr$("Montag,Dienstag,Mittwoch,Donnerstag,Freitag",&loop,",")
TextColor 0,-1
UseFont "Times New Roman",width&/35,0,1,0,0
if &loop=0
DrawText rand%, top%+2, (rand%+reihen_nummer%)+(((width&-reihen_nummer%)-(rand%*2))/6*&loop)+(((width&-reihen_nummer%)-(rand%*2))/6) , top%+zeile%, "Zeiten", 1
else
DrawText rand%+reihen_nummer%+((((width&-reihen_nummer%)-(rand%*2))/6)*&loop), top%+2, rand%+reihen_nummer%+((((width&-reihen_nummer%)-(rand%*2))/6)*(&loop+1)) , top%+zeile%, wtag$, 1
Endif
Endwhile
Else'Wenn Hochformat aufgewählt wurde
Messagebox("Drucken des Hochformates bisher nicht möglich!","INFO",64)
Endif
EndPrint
ass=s4 href='./../../Function-References/XProfan/endif/'>Endif
furthermore have I some ask to that Druckrändern!
How would your whom Druckrand dial. How plenty Pixel edge go on each drop needed so nothing cut becomes?
is edge on eachone Page necessary? left-right, supra-under or even only on of/ one Page?
I male one background behind whom schedule which possible with little edge ausgedruckt go should ^^.
Momentane Borders: Tabelle=70px Bild=10px |
|
| |
| |
| |
|
|
Julian
Schmidt | I have now a Kompromiss for me found. I ermittle whom edge the chosen Druckers. Also give I a waiter-, Untergrenze on.
so stops I The Objects In any printer in the angegebenen has info, unless even with same waiter-, Untergrenze in exakt the detailed Size(in relation to that Blattes(Prozentual))
CompileMarkSeparation $H Windows.ph
cls
StartPrint "*Test"
if %Printing
var H& = ~GetDeviceCaps(&PDC,~HORZSIZE)
var V& = ~GetDeviceCaps(&PDC,~VERTSIZE)
var pxmm!=3.425
var pymm!=3.35
var width&=H&*pxmm!
var height&=V&*pymm!
var rand%= ~GetDeviceCaps(&PDC,112)
case rand%<(width&/100)*7 : rand%=(width&/100)*7'Untergrenze=7% von Physikalischer Blattergröße in Pixeln
case rand%>(width&/100)*7 : rand%=(width&/100)*7'Obergrenze=7% von Physikalischer Blattergröße in Pixeln
UsePen 0,1,RGB(0,0,31)
If H& > V&'Querformat
Line rand%,100 - (width&-rand%),100
Else'Hochformat
Line rand%,100 - (width&-rand%),100
Endif
EndPrint
Endif
|
|
| |
| |
| |
|
(521)
Deutsch
English
Français
Español
Italia