XProfan

Español

Julian
Schmidt

Hey Personas,
por qué druckt el Ver código fuente el Array no de?
¿Cómo se puede Yo außerdem el Texto una otro Schriftart geben (Über UseFont es por desgracia, no)?

Kompilieren Marca Separación

 $H Windows.ph
Def @ChoosePrinter(1) !"COMDLG32.DLL", "PrintDlgA"
Declarar DOCINFO#, texto$[]
Struct DOCINFO = cbSize&,lpszDocName&,lpszOutput&,lpszDatatype&,fwType&
Dim DOCINFO#, DOCINFO
Declarar PRINTDLG#
Struct PRINTDLG = lStructSize&,hWndOwner&,hDevMode&,hDevNames&,hDC&,Flags&,nFromPage%,nToPage%,nMinPage%,nMaxPage%,nCopies%,hInstance&,lCustData&,lpfnPrintHook&,lpfnSetupHook&,lpPrintTemplateName&,lpPrintSetupTemplateName&,hPrintTemplate&,hSetupTemplate&
Dim PRINTDLG#, PRINTDLG
Def &PD_RETURNDC $100
Declarar PrintText$, DocName$
DocName$ = "Array Ausdrucken"

With DOCINFO#

    .cbSize& = @SizeOf(DOCINFO#)
    .lpszDocName& = @Addr(DocName$)
    .lpszOutput& = 0

EndWith

With PRINTDLG#

    .lStructSize& = @SizeOf(PRINTDLG#)
    .hWndOwner& = %hWnd
    .hDevMode& = 0
    .Flags& = &PD_RETURNDC
    .hDevNames& = 0
    .hInstance& = %hInstance
    .lpfnPrintHook& = 0
    .lpfnSetupHook& = 0
    .lpPrintTemplateName& = 0
    .lpPrintSetupTemplateName& = 0

EndWith

@ChoosePrinter(PRINTDLG#)
PrintText$ ="Beispiel - Imprimir Array"

whileloop 14

    texto$[&bucle]="TestArray" + Str$(&bucle)

Endwhile

var y%=140
~StartDoc(PRINTDLG#.hDC&, DOCINFO#)
~StartPage(PRINTDLG#.hDC&)
'UseFont "Times New Roman",26,0,1,0,1
~TextOut(PRINTDLG#.hDC&, 150, 150, @Addr(PrintText$),@Len(PrintText$))'el Texto druckt él
'UseFont "Times New Roman",22,0,0,1,0,0

whileloop 14

    ~TextOut(PRINTDLG#.hDC&, 80, y%, texto$[&bucle],@Len(texto$[&bucle]))'el Array druckt él no ;(
    y%=y%+50

Endwhile

~EndPage(PRINTDLG#.hDC&)
~EndDoc(PRINTDLG#.hDC&)
Disponer DOCINFO#
Disponer PRINTDLG#

LG

Julian57

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

14.06.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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

Thomas
Freier

Alten Contribución gelöscht. Zu el Escape Sequenzen búsqueda en el Web. Aber el helfen en el heutigen Druckern wohl auch no más, porque lo va en efecto así:

Kompilieren Marca Separación

 $H Windows.ph
Def @ChoosePrinter(1) !"COMDLG32.DLL", "PrintDlgA"
Declarar DOCINFO#, texto$[]
Struct DOCINFO = cbSize&,lpszDocName&,lpszOutput&,lpszDatatype&,fwType&
Dim DOCINFO#, DOCINFO
Declarar PRINTDLG#
Struct PRINTDLG = lStructSize&,hWndOwner&,hDevMode&,hDevNames&,hDC&,Flags&,nFromPage%,nToPage%,nMinPage%,nMaxPage%,nCopies%,hInstance&,lCustData&,lpfnPrintHook&,lpfnSetupHook&,lpPrintTemplateName&,lpPrintSetupTemplateName&,hPrintTemplate&,hSetupTemplate&
Dim PRINTDLG#, PRINTDLG
Def &PD_RETURNDC $100
Declarar PrintText$, DocName$
DocName$ = "Array Ausdrucken"

With DOCINFO#

    .cbSize& = @SizeOf(DOCINFO#)
    .lpszDocName& = @Addr(DocName$)
    .lpszOutput& = 0

EndWith

With PRINTDLG#

    .lStructSize& = @SizeOf(PRINTDLG#)
    .hWndOwner& = %hWnd
    .hDevMode& = 0
    .Flags& = &PD_RETURNDC
    .hDevNames& = 0
    .hInstance& = %hInstance
    .lpfnPrintHook& = 0
    .lpfnSetupHook& = 0
    .lpPrintTemplateName& = 0
    .lpPrintSetupTemplateName& = 0

EndWith

@ChoosePrinter(PRINTDLG#)
PrintText$ ="Beispiel - Imprimir Array"

whileloop 14

    texto$[&bucle]="TestArray" + Str$(&bucle)

Endwhile

~StartDoc(PRINTDLG#.hDC&, DOCINFO#)
~StartPage(PRINTDLG#.hDC&)
'siehe Ayuda "Drucken"
StartPaint PRINTDLG#.hDC&
UseFont "Times New Roman",(24.0*3.7),0,1,0,1
EndPaint PRINTDLG#.hDC&
~TextOut(PRINTDLG#.hDC&, (15*3.7), (15*3.7), @Addr(PrintText$),@Len(PrintText$))
StartPaint PRINTDLG#.hDC&
UseFont Arial,(16.0*3.7),0,0,0,0,0
EndPaint DC&
declarar texto$
var y%=50

whileloop 14

    Texto$=texto$[&bucle]
    ~TextOut(PRINTDLG#.hDC&, (15*3.7), (y%*3.7), @Addr(Texto$),@Len(Texto$))
    y%=y%+18

Endwhile

~EndPage(PRINTDLG#.hDC&)
~EndDoc(PRINTDLG#.hDC&)
Disponer DOCINFO#
Disponer PRINTDLG#

Über el Faktor Bildschirmpunkt para Druckerpunkt wirst du hier auch todavía algo encontrar.

Gruß Thomas
Windows XP SP2, XProfan X2

15.06.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Also drucken ginge ya, si du innerhalb el Bucle el gleichen Befehl absetzt.

Kompilieren Marca Separación

 $H Windows.ph
Def @ChoosePrinter(1) !"COMDLG32.DLL", "PrintDlgA"
Declarar DOCINFO#, texto$[]
Struct DOCINFO = cbSize&,lpszDocName&,lpszOutput&,lpszDatatype&,fwType&
Dim DOCINFO#, DOCINFO
Declarar PRINTDLG#
Struct PRINTDLG = lStructSize&,hWndOwner&,hDevMode&,hDevNames&,hDC&,Flags&,nFromPage%,nToPage%,nMinPage%,nMaxPage%,nCopies%,hInstance&,lCustData&,lpfnPrintHook&,lpfnSetupHook&,lpPrintTemplateName&,lpPrintSetupTemplateName&,hPrintTemplate&,hSetupTemplate&
Dim PRINTDLG#, PRINTDLG
Def &PD_RETURNDC $100
Declarar PrintText$, DocName$
DocName$ = "Array Ausdrucken"

With DOCINFO#

    .cbSize& = @SizeOf(DOCINFO#)
    .lpszDocName& = @Addr(DocName$)
    .lpszOutput& = 0

EndWith

With PRINTDLG#

    .lStructSize& = @SizeOf(PRINTDLG#)
    .hWndOwner& = %hWnd
    .hDevMode& = 0
    .Flags& = &PD_RETURNDC
    .hDevNames& = 0
    .hInstance& = %hInstance
    .lpfnPrintHook& = 0
    .lpfnSetupHook& = 0
    .lpPrintTemplateName& = 0
    .lpPrintSetupTemplateName& = 0

EndWith

@ChoosePrinter(PRINTDLG#)
PrintText$ ="Beispiel - Imprimir Array"

whileloop 14

    texto$[&bucle]="TestArray" + Str$(&bucle)

Endwhile

var y%=140
~StartDoc(PRINTDLG#.hDC&, DOCINFO#)
~StartPage(PRINTDLG#.hDC&)
'UseFont "Times New Roman",26,0,1,0,1
~TextOut(PRINTDLG#.hDC&, 150, 150, @Addr(PrintText$),@Len(PrintText$))'el Texto druckt él
'UseFont "Times New Roman",22,0,0,1,0,0
declarar texto$
y%=300

whileloop 14

    Texto$=texto$[&bucle]
    ~TextOut(PRINTDLG#.hDC&, 150, y%, @Addr(Texto$),@Len(Texto$))
    y%=y%+150

Endwhile

~EndPage(PRINTDLG#.hDC&)
~EndDoc(PRINTDLG#.hDC&)
Disponer DOCINFO#
Disponer PRINTDLG#

Como du no zwischen Startprint y Endprint druckst, kann el Font vermutlich sólo por Senden el entsprechenden Escape-Sequenzen umgestellt voluntad.

Gruß Thomas
Windows XP SP2, XProfan X2

14.06.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Como media Si es usted el con el Escape-Sequenz?
Ein Ejemplo?

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

14.06.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Alten Contribución gelöscht. Zu el Escape Sequenzen búsqueda en el Web. Aber el helfen en el heutigen Druckern wohl auch no más, porque lo va en efecto así:

Kompilieren Marca Separación

 $H Windows.ph
Def @ChoosePrinter(1) !"COMDLG32.DLL", "PrintDlgA"
Declarar DOCINFO#, texto$[]
Struct DOCINFO = cbSize&,lpszDocName&,lpszOutput&,lpszDatatype&,fwType&
Dim DOCINFO#, DOCINFO
Declarar PRINTDLG#
Struct PRINTDLG = lStructSize&,hWndOwner&,hDevMode&,hDevNames&,hDC&,Flags&,nFromPage%,nToPage%,nMinPage%,nMaxPage%,nCopies%,hInstance&,lCustData&,lpfnPrintHook&,lpfnSetupHook&,lpPrintTemplateName&,lpPrintSetupTemplateName&,hPrintTemplate&,hSetupTemplate&
Dim PRINTDLG#, PRINTDLG
Def &PD_RETURNDC $100
Declarar PrintText$, DocName$
DocName$ = "Array Ausdrucken"

With DOCINFO#

    .cbSize& = @SizeOf(DOCINFO#)
    .lpszDocName& = @Addr(DocName$)
    .lpszOutput& = 0

EndWith

With PRINTDLG#

    .lStructSize& = @SizeOf(PRINTDLG#)
    .hWndOwner& = %hWnd
    .hDevMode& = 0
    .Flags& = &PD_RETURNDC
    .hDevNames& = 0
    .hInstance& = %hInstance
    .lpfnPrintHook& = 0
    .lpfnSetupHook& = 0
    .lpPrintTemplateName& = 0
    .lpPrintSetupTemplateName& = 0

EndWith

@ChoosePrinter(PRINTDLG#)
PrintText$ ="Beispiel - Imprimir Array"

whileloop 14

    texto$[&bucle]="TestArray" + Str$(&bucle)

Endwhile

~StartDoc(PRINTDLG#.hDC&, DOCINFO#)
~StartPage(PRINTDLG#.hDC&)
'siehe Ayuda "Drucken"
StartPaint PRINTDLG#.hDC&
UseFont "Times New Roman",(24.0*3.7),0,1,0,1
EndPaint PRINTDLG#.hDC&
~TextOut(PRINTDLG#.hDC&, (15*3.7), (15*3.7), @Addr(PrintText$),@Len(PrintText$))
StartPaint PRINTDLG#.hDC&
UseFont Arial,(16.0*3.7),0,0,0,0,0
EndPaint DC&
declarar texto$
var y%=50

whileloop 14

    Texto$=texto$[&bucle]
    ~TextOut(PRINTDLG#.hDC&, (15*3.7), (y%*3.7), @Addr(Texto$),@Len(Texto$))
    y%=y%+18

Endwhile

~EndPage(PRINTDLG#.hDC&)
~EndDoc(PRINTDLG#.hDC&)
Disponer DOCINFO#
Disponer PRINTDLG#