Français
Forum

DrawText Format% rechtsbuendig im Querformat! XPROFAN X2a

 

GC57
qui Avancé Funktion DrawText:
DrawText x%, y%, dx%, dy%, Text$, Format%
funktioniert ausgezeichnet.

mais quoi fais je si je im Querformat drucken veux?
cela Format% (2) druckt toujours rechtbuendig; quoi im Querformat (Orientation 900) bedeutet; cela qui Text wieter unten gedruckt wird.

Gibt es là une Loesung?
Vielen Dank d'avance.
 
07.07.2011  
 



Vlt. hilft Dir...
KompilierenMarqueSéparation
'URL: https://xprofan.com/intl/de/quelltexte/druckausgabe-querformat/
'XProfan Querformat - Druckausgabe von Andreas Miethe
'##################
 $H windows.ph
DEF Get_STDPrinter(1) Substr$(ReadIni$("WIN.INI","Windows","Device"),@&(1),",")
DEF OpenPrinter(3) !"WINSPOOL.DRV","OpenPrinterA"
DEF ClosePrinter(1) !"WINSPOOL.DRV","ClosePrinter"
DEF DocumentProperties(6) ! "WINSPOOL.DRV","DocumentPropertiesA"
CLS
Declare STDPrinterName$
STDPrinterName$ = Get_STDPrinter(1)'name des Standard-Druckers ermitteln
Declare PrinterHandle&
OpenPrinter(Addr(STDPrinterName$),Addr(PrinterHandle&),0)'PrinterHandle ermitteln
Declare BufferSize&,DevIn#
BufferSize& = DocumentProperties(%hwnd,PrinterHandle&,Addr(STDPrinterName$),0,0,0)'Buffergroes se fuer Devmode-Struktur ermitteln
Dim DevIn#,BufferSize&
DocumentProperties(0,PrinterHandle&,Addr(STDPrinterName$),DevIn#,0,$13)'Devmode- Struktur fuellen
ClosePrinter(PrinterHandle&)'Printerhandle wird nicht mehr benoetigt
Declare PrinterDC&
Long DevIn#,44 = 2'Orientation auf Querdruck setzen
PrinterDC& = ~CreateDC("WINSPOOL",Addr(STDPrinterName$),0,DevIn#)'Drucke-Device-Context
'Docinfo-Struktur anlegen und fuellen
Declare DocInf#,Docname$
Dim DocInf#,12
Long DocInf#,0 = 12
Docname$ = "Mein Dokument"
Long DocInf#,4 = Addr(Docname$)
Long DocInf#,8 = 0
'Druckausgabe per API

If ~StartDoc(PrinterDC&,DocInf#) > 0

    If ~StartPage(PrinterDC&) > 0

        printDaZeugs(printerDC&)
        //~TextOut(PrinterDC&,60,70,"Querdruck",9)
        ~EndPage(PrinterDC&)
        ~EndDoc(PrinterDC&)

    Endif

Endif

Print "Fertig mit drucken"
waitinput
Dispose DevIn#
Dispose DocInf#
END

proc printDaZeugs

    parameters dc&
    var maxx&=~GetDeviceCaps(dc&,~HORZRES)
    var maxy&=~GetDeviceCaps(dc&,~VERTRES)
    startPaint dc&
    usepen 0,0,$FF0000
    useBrush 1,$00FF00
    rectangle 0,0 - maxx&,maxy&
    endPaint

./../funktionsreferenzen/XProfan/endproc/'>endProc

... hab un Beispiel de Andreas Miethe quelque chose angepasst

... probiere Dein DrawText la fois dans qui Funktion printDaZeugs abzulegen.
 
08.07.2011  
 




GC57
merci pour le Info.

nie gemacht la fois versucht. Kriege mais toujours une le vide page si je DrawText einbinde.
 
08.07.2011  
 



Jo, chez mir gehts.

Zeigste arrêt la fois den Code.
 
08.07.2011  
 



Zeig doch la fois Deinen Code -

peux on oui sonst pas si bien aider.
 
08.07.2011  
 




GC57

KompilierenMarqueSéparation
CLS
'Beispiel
'Normal Format Correct
UseFont "Arial",12,0,0,0,0
DrawText 100,100,300,120,"LINKS",0
DrawText 100,120,300,140,"RECHTS",2
WAITINPUT
'Beispiel
'Querformat
@Set("Orientation",900)
UseFont "Arial",12,0,0,0,0
DrawText 100,300,120,100,"LINKS",0
DrawText 120,300,140,100,"RECHTS",2
PUT

ici la fois un kleines Beispiel:
Fuer den Druck peux StartPrint and Endprint eingefuegt werden; ist mais pour qui Funktion pas important. cela passiert aussi dans qui Bildschirmausgabe.

merci nochmals.
 
08.07.2011  
 



peux qui Breite selbst subtrahieren: [...] 
 
08.07.2011  
 



iF;Das sieht intéressant aus!

Allerdings kriege je aussi cela pas im Querformat hin.
Es scheint cela qui Zeichengroesse irgendwie anders ist.

mais je spiele domit encore un peu plus rum.

merci nochmals.
 
08.07.2011  
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

9.667 Views

Untitledvor 0 min.
H.Brill23.09.2023
RudiB.19.04.2022
Sebald Grandjean16.02.2018
Wilfried02.06.2016
plus...

Themeninformationen

cet Thema hat 3 participant:

iF (4x)
GC57 (3x)
unbekannt (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie