| |
| |
|
| - page 1 - |
|
Julian
Schmidt | allô Community,
je serait volontiers quelques Fragen rund um Drucken avec XProfan klären.
Zum Thema: je suis justement dabei mon Stundenplan-Tool (Vlt. erinnern sich quelques à cet) trop aktualisieren. eh bien versuche je justement qui Druckfunktion sur Vorderman trop apporter.
Je mets mir cela Drucken so avant.
si on sur Drucken klickt venez un Druckerauswahldialog, anschließend peux on Einstellungen rendez-vous et drucken. si im Druckerauswahldialog Querformat geklickt wurde soll autre chose gedruckt volonté comme im Hochformat.
Im Querformat wird qui Stundenplan einmal sur qui Gesamte Longueur des Blattes gedruckt.
Im Hochformat wird qui Stundenplan mehrfach untereinander sur qui Gesamte Breite des Blattes gedruckt, sodass aussi so cela gesamte Blatt ausgefüllt ist.
eh bien devrait on zum une ermitteln si Quer-, ou bien Hochformat ausgewählt wurde.
et zum zweiten devrait qui Taille des Blattes ermittelt volonté, sodass on den Stundenplan Zentrieren peux.
but cet Beitrags ist es erstmal entier simple im Hoch-, Querformat une ligne number, et une Text Zentriert, dans qui jeweiligen Format-Ausrichtung(rebord de ~50px) auszudrucken.
KompilierenMarqueSéparation
LG
Julian57 |
|
| |
| |
| |
|
 |
« cette Beitrag wurde comme Solution gekennzeichnet. » |
|
Thomas
Freier | voilà Umrechnen annoncé. Du bekommst z.B. Blattbreite dans mm. ensuite sommes cela ~H&*3.425 Bildpx .
KompilierenMarqueSéparation $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 du Druckerpx (APX%) dois du deine Bildschirmpx (rebord%) umrechnen. |
|
| |
| |
| |
|
|
|
 | |
| |
| |
| |
|
|
Julian
Schmidt | Hilft Je ne wirklich plus!
je denke qui beste Ansatz wäre erstmal trop ermitteln si Quer- ou bien Hochformat eingestellt wurde. Irgendeine concept? |
|
| |
| |
| |
|
|
| Hm mais Codes pour liegen ici doch rum.
Magst qui cherche pas?
Einfachste variante: [...] 
mais gib la fois dans cela Suchfeld "Drucke" un -
et schaue ensuite là dans qui Rubrik "Quelltexte"
là gibts encore genauere Beispiele. |
|
| |
| |
| |
|
|
| Z.B. ici simple comment toujours super de Andreas Miethe: [...] -
peux avec cela sogar regarder si qui Drucker männlich ou bien féminine ist -
si gegeben!  |
|
| |
| |
| |
|
|
Julian
Schmidt | hmmm....cela avec dem ermitteln des Formates funktioniert soweit super! eh bien komm je zum prochain Problem. comment bekomme je car qui ligne number exakt de *Anfang des Blattes*+*Druckrand* jusqu'à *Ende des Blattes*-*Druckrand*.
Aktuell siehts so aus(siehe Télécharger)! Genauso aussi im Hochformat!
Télécharger
KompilierenMarqueSéparationDef 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
|
|
| |
| |
| |
|
|
| exposition la fois: [...]
là steht chez HORZRES: Width, dans pixels, of le screen; or for printers, le width, dans pixels, of le printable area of le le chasseur.
Funktioniert cela car pas? |
|
| |
| |
| |
|
|
Julian
Schmidt | malheureusement pas 
KompilierenMarqueSéparation $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 | et quoi mich ici wundert: aucun allez sur Deinen geilen Spruch un "ob qui Drucker männlich ou bien weiblich" ist. je hab mich wieder gekringelt avant rire. merci si, pour cette Spruch !!!!  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | quoi est car "Leider nicht"? Bekommst Du aucun Werte ou bien quoi? chez mir venons nämlich Werte dans qui Variablen. et zwar assez oui c'est ca qui, qui je chez einer Din A4-page erwaten serait. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 20.08.2011 ▲ |
|
| |
|
|
Thomas
Freier | Ist déjà witzig, comment qui données ermittelt werde.
Jörg erwatet vous  [...]
et Julian fischt im Trüben  [...] |
|
| |
| |
| |
|
|
Julian
Schmidt | qui Frage ist oui toujours si qui richtigen Werte ermittelt volonté, si cela qui Wert ist den je cherche. comment wird es den chez euch ausgedruckt?
KompilierenMarqueSéparation $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