TextPrinter

Синтаксис

Sub TextPrinter(byref SourceText As String, byval Font As window9.FontPrint Ptr=0, byval color_BK As COLORREF=0, byval color_T As COLORREF=0)

Описание

Выводит на печать любой объем текста, при этом форматируя его так, что текст размещается при необходимости на множестве страниц. Стандартное форматирование текста страдает и корректируется в соответствии со страницей печати. Функция может выводить выбираемым шрифтом, цветом фона текста и цветом самого текста. Планировалась в основном для объемного текста, который не нуждается в особом форматировании

Параметры

SourceText - текст для печати

Font - адрес структуры FontPrint. Структура выглядит так:

    Type FontPrint
        Name_ As String 'имя шрифта
        size As Integer 'размер шрифта
        BOLD As integer 'флаг включения полужирного шрифта (вкл 1 ; выкл 0)
        Italic As Integer 'флаг включения наклонного шрифта (вкл 1 ; выкл 0)
        Underline As Integer 'флаг включения подчеркнутого шрифта (вкл 1 ; выкл 0)
        StrikeOut As Integer 'флаг включения зачеркнутого шрифта (вкл 1 ; выкл 0)
    End Type

color_BK - цвет фона текста, может быть установлен с помощью макроса BGR

color_T - цвет текста, может быть установлен с помощью макроса BGR

Платформы

Windows

Пример

#include "window9.bi"
Dim As Integer event
Dim As window9.FontPrint f
f.Name_="Arial"
f.size =22
f.Italic=1
CenterWindow(OpenWindow("",10,10,500,500))
EditorGadget(1,10,10,370,450)
ButtonGadget(2,390,10,80,25,"Печать")
Do
  event=WaitEvent()
  If Event=EventClose Then End
  If event=EventGadget Then
     If EventNumber=2 Then
        TextPrinter(GetGadgetText(1,8),@f,,&hff0000)
     EndIf
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: Free HTML Help documentation generator