| |
| |
|
| - 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. » |
|
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 | helps I do not really moreover!
i think the best Ansatz would first To detect whether athwart- or Hochformat tuned watts. Irgendeine idea? |
|
| |
| |
| |
|
|
| Hm but Codes for lying here still rum.
like The Search not?
Simplest Variante: [...] 
but gib time into Suchfeld "Drucke" one -
and look then there in the Rubrik "Quelltexte"
there Gibts yet genauere Examples. |
|
| |
| |
| |
|
|
| Z.B. here simply How always super of Andreas Miethe: [...] -
can so even look whether the printer manly or feminine is -
if given!  |
|
| |
| |
| |
|
|
Julian
Schmidt | hmmm....with the the detect the Formates functions so far super! now komm I to that next trouble. How do I get because The line exakt of *beginning the Blattes*+*Druckrand* To *end the Blattes*-*Druckrand*.
currently siehts so from(see Download)! just as in Hochformat!
Download
CompileMarkSeparationDef GetDeviceCaps(2) ! "GDI32","GetDeviceCaps"
Declare H&,V&, rand_px&, APX%, APY%
rand_px&=75
cls
StartPrint "*Test"
if %Printing
H& = GetDeviceCaps(&PDC,4)
V& = GetDeviceCaps(&PDC,6)
APX%= GetDeviceCaps(&PDC,8)'Ausgabebreite in Pixel
APY%= GetDeviceCaps(&PDC,10)'AusgabeHoehe in Pixel
If H& > V&'Querformat
Line rand_px&,rand_px& - APX%-rand_px&,rand_px&
Else'Hochformat
Line rand_px&,rand_px& - APY%-rand_px&,rand_px&
Endif
EndPrint
Endif
|
|
| |
| |
| |
|
|
| look time: [...]
there back HORZRES: Width, in pixels, of the screen; or for printers, the width, in pixels, of the printable area of the page.
functions the because not? |
|
| |
| |
| |
|
|
Julian
Schmidt | unfortunately not 
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)
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
|
|
| |
| |
| |
|
|
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 ▲ |
|
| |
|
|
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
|
|
| |
| |
| |
|
(521)
Deutsch
English
Français
Español
Italia