XProfan

Español

Julian
Schmidt

¡Hola Comunidad,
Yo sería gerne algunos Fragen rund en Drucken con XProfan klären.

Zum Thema: Yo bin gerade esta mein Stundenplan-Tool (Vlt. erinnern se algunos a dieses) a aktualisieren. Nun versuche Yo gerade el Druckfunktion en Vorderman a bringen.
Yo lugar me Drucken así antes.
Wenn uno en Drucken klickt kommt una Druckerauswahldialog, anschließend puede ser Einstellungen treffen y drucken. Wenn en el Druckerauswahldialog Querformat geklickt wurde se de otra manera gedruckt voluntad como en el Hochformat.
Im Querformat se el Stundenplan una vez en Gesamte Longitud des Blattes gedruckt.
Im Hochformat se el Stundenplan mehrfach untereinander en el Gesamte Breite des Blattes gedruckt, sodass auch así el gesamte Blatt ausgefüllt es.

Nun debería uno para una ermitteln si Quer-, oder Hochformat ausgewählt wurde.
Und para zweiten debería el Größe des Blattes ermittelt voluntad, sodass uno el Stundenplan Zentrieren kann.

Ziel dieses Beitrags es primero bastante simple en el Hoch-, Querformat una Linie, y una Texto Zentriert, en el jeweiligen Formato-Ausrichtung(Rand de ~50px) auszudrucken.
Kompilieren Marca Separación

StartPrint "*Testausdruck"

if %Printing

    Line 50,50 - 200,50
    DrawText 50, 60, 200, 80, "TestText", 1
    EndPrint

E

LG

Julian57

XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

Thomas
Freier

Como es Umrechnen angesagt. Usted bekommst z.B. Blattbreite en mm. Dann son el ~H&*3.425 Bildpx .
Kompilieren Marca Separación

 $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%) mußt du deine Bildschirmpx (rand%) umrechnen.

Gruß Thomas
Windows XP SP2, XProfan X2

20.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hilft Usted [...]

XProfan X2
Win7 Home Premium, SP1, Core(TM)2 Duo E6750 @ 2.66GHz

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Hilft No wirklich más!
Yo denke el beste Ansatz wäre primero a ermitteln si Quer- oder Hochformat eingestellt wurde. Irgendeine Concepto?

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hm aber Codes dafür mentira hier doch rum.

Magst el Búsqueda no?

Einfachste Variante: [...]

Aber gib veces en el Suchfeld "Drucke" una -

y schaue entonces hay en el Rubrik "Quelltexte"

como gibts todavía genauere Beispiele.

XProfan X2
Win7 Home Premium, SP1, Core(TM)2 Duo E6750 @ 2.66GHz

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Z.B. hier simplemente como siempre super de Andreas Miethe: [...]

-

kannst así incluso schauen si el Drucker männlich oder weiblich es -

si gegeben!

XProfan X2
Win7 Home Premium, SP1, Core(TM)2 Duo E6750 @ 2.66GHz

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

hmmm....el con el ermitteln des Formates funktioniert soweit super! Nun komm Yo para nächsten Problema. Como bekomme Yo porque el Linie exakt de *Anfang des Blattes*+*Druckrand* a *Ende des Blattes*-*Druckrand*.

Aktuell siehts así de(siehe Descargar)! Genauso auch en el Hochformat!
Descargar
Kompilieren Marca Separación

Def 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

test.pdf	2 kB

Hochgeladen:	19.08.2011

Ladeanzahl:
		Descargar

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Schau veces: [...]

Ahí está en HORZRES: Width, en pixels, of the screen; or for printers, the width, en pixels, of the printable area of the page.

Funktioniert el porque no?

XProfan X2
Win7 Home Premium, SP1, Core(TM)2 Duo E6750 @ 2.66GHz

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Leider no

Kompilieren Marca Separación

 $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

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

y qué mich hier wundert: Keiner va en Su geilen Spruch una "ob el Drucker männlich oder weiblich" es. Yo mich otra vez gekringelt antes Lachen. Gracias if, para esta Spruch !!!!

XProfan X2
Win7 Home Premium, P4 3.40GHz

20.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Was heißt porque "Leider nicht"? Bekommst Usted no Werte oder qué? En me kommen nämlich Werte en el Variables. Und zwar bastante genau el, el Yo en uno Din A4-Página erwaten sería.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

20.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Ya está witzig, como Daten ermittelt voluntad.
Jörg erwatet ellos

[...]

y Julian fischt en el Trüben

[...]

Gruß Thomas
Windows XP SP2, XProfan X2

20.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

El Cuestión es sí siempre si el richtigen Werte ermittelt voluntad, si el el Valor es el Yo búsqueda. Como se lo el en euch ausgedruckt?
Kompilieren Marca Separación

 $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