Detail line breaking on the first page.

bumboltorin

Hello, Happy Holidays.

I'm testing your component for Delphi Florence and I've encountered a problem.

I can't figure out how to print the detail on the first page of the report. It breaks in the middle, leaving the rest of the first page blank. From the second page onwards, it normalizes.

I'm sending a simple program that simulates the problem.

I need 4 to 5 groups in a report, and the detail should print in the 5th group.

Could you help me by indicating where I need to correct this so that the detail prints on the first page with all the groups?

Thank you, Milton



************************************************************************

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ppParameter, ppDesignLayer, ppBands,
ppClass, ppCtrls, ppVar, ppStrtch, ppRegion, ppPrnabl, ppCache, ppComm,
ppRelatv, ppProd, ppReport, Vcl.StdCtrls, ppDB, ppDBJIT;

type
TForm1 = class(TForm)
ppReport2: TppReport;
ppHeaderBand3: TppHeaderBand;
ppLine4: TppLine;
ppLabel1: TppLabel;
ppLabel2: TppLabel;
ppLabel30: TppLabel;
ppLabel31: TppLabel;
ppLabel32: TppLabel;
ppRegion7: TppRegion;
ppVariable20: TppVariable;
ppVariable21: TppVariable;
ppVariable22: TppVariable;
ppVariable23: TppVariable;
ppLabel34: TppLabel;
ppVarProprietario3: TppVariable;
ppDetailBand3: TppDetailBand;
ppGroup6: TppGroup;
ppGroupHeaderBand6: TppGroupHeaderBand;
ppRegion3: TppRegion;
ppVariable2: TppVariable;
ppVariable15: TppVariable;
ppVariable16: TppVariable;
ppVariable17: TppVariable;
ppVariable18: TppVariable;
ppGroupFooterBand6: TppGroupFooterBand;
ppGroup7: TppGroup;
ppGroupHeaderBand7: TppGroupHeaderBand;
ppRegion4: TppRegion;
ppVariable3: TppVariable;
ppVariable74: TppVariable;
ppVariable73: TppVariable;
ppVariable72: TppVariable;
ppVariable71: TppVariable;
ppGroupFooterBand7: TppGroupFooterBand;
ppGroup8: TppGroup;
ppGroupHeaderBand8: TppGroupHeaderBand;
ppVariable4: TppVariable;
ppVariable874: TppVariable;
ppVariable873: TppVariable;
ppVariable872: TppVariable;
ppVariable871: TppVariable;
ppGroupFooterBand8: TppGroupFooterBand;
ppGroup9: TppGroup;
ppGroupHeaderBand9: TppGroupHeaderBand;
ppVariable5: TppVariable;
ppVariable7: TppVariable;
ppVariable8: TppVariable;
ppVariable9: TppVariable;
ppVariable10: TppVariable;
ppGroupFooterBand9: TppGroupFooterBand;
ppGroup10: TppGroup;
ppGroupHeaderBand10: TppGroupHeaderBand;
ppVariable6: TppVariable;
ppVariable11: TppVariable;
ppVariable12: TppVariable;
ppVariable13: TppVariable;
ppVariable14: TppVariable;
ppGroupFooterBand10: TppGroupFooterBand;
ppDesignLayers2: TppDesignLayers;
ppDesignLayer2: TppDesignLayer;
ppParameterList4: TppParameterList;
Button1: TButton;
ppVariable1: TppVariable;
ppJITPipeline1: TppJITPipeline;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
procedure Button1Click(Sender: TObject);
procedure ppVariable3GetText(Sender: TObject; var Text: string);
procedure ppVariable2GetText(Sender: TObject; var Text: string);
procedure ppVariable1GetText(Sender: TObject; var Text: string);
procedure ppVariable6GetText(Sender: TObject; var Text: string);
procedure ppVariable5GetText(Sender: TObject; var Text: string);
procedure ppVariable4GetText(Sender: TObject; var Text: string);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure ppReport2BeforePrint(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ppreport2.Print;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
checkbox1.Checked:=true;
checkbox2.Checked:=true;
checkbox3.Checked:=true;
checkbox4.Checked:=true;
checkbox5.Checked:=true;
ppreport2.Print;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
checkbox1.Checked:=true;
checkbox2.Checked:=true;
checkbox3.Checked:=true;
checkbox4.Checked:=true;
checkbox5.Checked:=false;
ppreport2.Print;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
checkbox1.Checked:=true;
checkbox2.Checked:=true;
checkbox3.Checked:=true;
checkbox4.Checked:=false;
checkbox5.Checked:=false;
ppreport2.Print;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
checkbox1.Checked:=true;
checkbox2.Checked:=true;
checkbox3.Checked:=false;
checkbox4.Checked:=false;
checkbox5.Checked:=false;
ppreport2.Print;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
checkbox1.Checked:=true;
checkbox2.Checked:=false;
checkbox3.Checked:=false;
checkbox4.Checked:=false;
checkbox5.Checked:=false;
ppreport2.Print;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
checkbox1.Checked:=false;
checkbox2.Checked:=false;
checkbox3.Checked:=false;
checkbox4.Checked:=false;
checkbox5.Checked:=true;
ppreport2.Print;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
checkbox1.Checked:=false;
checkbox2.Checked:=false;
checkbox3.Checked:=false;
checkbox4.Checked:=false;
checkbox5.Checked:=false;
ppreport2.Print;
end;

procedure TForm1.ppReport2BeforePrint(Sender: TObject);
begin
ppGroupHeaderBand6.Visible:=checkbox1.Checked;
ppGroupHeaderBand7.Visible:=checkbox2.Checked;
ppGroupHeaderBand9.Visible:=checkbox3.Checked;
ppGroupHeaderBand8.Visible:=checkbox4.Checked;
ppGroupHeaderBand10.Visible:=checkbox5.Checked;
end;

procedure TForm1.ppVariable1GetText(Sender: TObject; var Text: string);
begin
Text:= 'Detalhe 1';
end;

procedure TForm1.ppVariable2GetText(Sender: TObject; var Text: string);
begin
Text := 'Grupo 1';
end;

procedure TForm1.ppVariable3GetText(Sender: TObject; var Text: string);
begin
Text := 'Grupo 2';
end;

procedure TForm1.ppVariable4GetText(Sender: TObject; var Text: string);
begin
Text:='Grupo 3';
end;

procedure TForm1.ppVariable5GetText(Sender: TObject; var Text: string);
begin
Text:='Grupo 4';
end;

procedure TForm1.ppVariable6GetText(Sender: TObject; var Text: string);
begin
Text:='Grupo 5';
end;

end.

bumboltorin

object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 253
ClientWidth = 646
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
TextHeight = 15
object Button1: TButton
Left = 83
Top = 25
Width = 147
Height = 25
Caption = 'Print Report'
TabOrder = 0
OnClick = Button1Click
end
object CheckBox1: TCheckBox
Left = 8
Top = 25
Width = 69
Height = 17
Caption = 'Group 1'
Checked = True
State = cbChecked
TabOrder = 1
end
object CheckBox2: TCheckBox
Left = 8
Top = 44
Width = 69
Height = 17
Caption = 'Group 2'
Checked = True
State = cbChecked
TabOrder = 2
end
object CheckBox3: TCheckBox
Left = 8
Top = 63
Width = 69
Height = 17
Caption = 'Group 3'
Checked = True
State = cbChecked
TabOrder = 3
end
object CheckBox4: TCheckBox
Left = 8
Top = 83
Width = 69
Height = 17
Caption = 'Group 4'
Checked = True
State = cbChecked
TabOrder = 4
end
object CheckBox5: TCheckBox
Left = 8
Top = 104
Width = 69
Height = 17
Caption = 'Group 5'
Checked = True
State = cbChecked
TabOrder = 5
end
object Button2: TButton
Left = 83
Top = 55
Width = 147
Height = 25
Caption = 'Print Report Test1'
TabOrder = 6
OnClick = Button2Click
end
object Button3: TButton
Left = 83
Top = 86
Width = 147
Height = 25
Caption = 'Print Report Test2'
TabOrder = 7
OnClick = Button3Click
end
object Button4: TButton
Left = 83
Top = 116
Width = 147
Height = 25
Caption = 'Print Report Test3'
TabOrder = 8
OnClick = Button4Click
end
object Button5: TButton
Left = 83
Top = 147
Width = 147
Height = 25
Caption = 'Print Report Test4'
TabOrder = 9
OnClick = Button5Click
end
object Button6: TButton
Left = 83
Top = 178
Width = 147
Height = 25
Caption = 'Print Report Test5'
TabOrder = 10
OnClick = Button6Click
end
object Button7: TButton
Left = 251
Top = 25
Width = 147
Height = 25
Caption = 'Print Report Test OK'
TabOrder = 11
OnClick = Button7Click
end
object Button8: TButton
Left = 251
Top = 59
Width = 147
Height = 25
Caption = 'Print Report Test OK'
TabOrder = 12
OnClick = Button8Click
end
object ppReport2: TppReport
AutoStop = False
DataPipeline = ppJITPipeline1
PrinterSetup.BinName = 'Default'
PrinterSetup.DocumentName = 'Report1'
PrinterSetup.Duplex = dpNone
PrinterSetup.PaperName = 'Carta'
PrinterSetup.PrinterName = 'Default'
PrinterSetup.SaveDeviceSettings = False
PrinterSetup.mmMarginBottom = 6350
PrinterSetup.mmMarginLeft = 15240
PrinterSetup.mmMarginRight = 0
PrinterSetup.mmMarginTop = 6350
PrinterSetup.mmPaperHeight = 279401
PrinterSetup.mmPaperWidth = 215900
PrinterSetup.PaperSize = 1
AllowPrintToFile = True
ArchiveFileName = '($MyDocuments)\ReportArchive.raf'
BeforePrint = ppReport2BeforePrint
DeviceType = 'Screen'
DefaultFileDeviceType = 'PDF'
EmailSettings.ReportFormat = 'PDF'
EmailSettings.ConnectionSettings.MailService = 'SMTP'
EmailSettings.ConnectionSettings.WebMail.GmailSettings.OAuth2.AuthStorage = [oasAccessToken, oasRefreshToken, oasEncryptTokens]
EmailSettings.ConnectionSettings.WebMail.GmailSettings.OAuth2.RedirectURI = 'http://localhost'
EmailSettings.ConnectionSettings.WebMail.GmailSettings.OAuth2.RedirectPort = 0
EmailSettings.ConnectionSettings.WebMail.GmailSettings.OAuth2.RefreshTokenLifeSpan = 365
EmailSettings.ConnectionSettings.WebMail.Outlook365Settings.OAuth2.AuthStorage = [oasAccessToken, oasRefreshToken, oasEncryptTokens]
EmailSettings.ConnectionSettings.WebMail.Outlook365Settings.OAuth2.RedirectURI = 'http://localhost'
EmailSettings.ConnectionSettings.WebMail.Outlook365Settings.OAuth2.RedirectPort = 0
EmailSettings.ConnectionSettings.WebMail.Outlook365Settings.OAuth2.RefreshTokenLifeSpan = 365
EmailSettings.ConnectionSettings.EnableMultiPlugin = False
EmailSettings.ConnectionSettings.ConnectionStatusInfo = [csiStatusBar]
LanguageID = 'Default'
OpenFile = False
OutlineSettings.CreateNode = True
OutlineSettings.CreatePageNodes = True
OutlineSettings.Enabled = True
OutlineSettings.Visible = True
ThumbnailSettings.Enabled = True
ThumbnailSettings.Visible = True
ThumbnailSettings.DeadSpace = 30
ThumbnailSettings.PageHighlight.Width = 3
ThumbnailSettings.ThumbnailSize = tsSmall
PDFSettings.EmbedFontOptions = [efUseSubset]
PDFSettings.EncryptSettings.AllowCopy = True
PDFSettings.EncryptSettings.AllowInteract = True
PDFSettings.EncryptSettings.AllowModify = True
PDFSettings.EncryptSettings.AllowPrint = True
PDFSettings.EncryptSettings.AllowExtract = True
PDFSettings.EncryptSettings.AllowAssemble = True
PDFSettings.EncryptSettings.AllowQualityPrint = True
PDFSettings.EncryptSettings.Enabled = False
PDFSettings.EncryptSettings.KeyLength = kl40Bit
PDFSettings.EncryptSettings.EncryptionType = etRC4
PDFSettings.DigitalSignatureSettings.SignPDF = False
PDFSettings.FontEncoding = feAnsi
PDFSettings.ImageCompressionLevel = 25
PDFSettings.PDFAFormat = pafNone
PDFSettings.Layers = False
PDFSettings.Outline = False
PreviewFormSettings.PageBorder.mmPadding = 0
RTFSettings.AppName = 'ReportBuilder'
RTFSettings.Author = 'ReportBuilder'
RTFSettings.DefaultFont.Charset = DEFAULT_CHARSET
RTFSettings.DefaultFont.Color = clWindowText
RTFSettings.DefaultFont.Height = -16
RTFSettings.DefaultFont.Name = 'Arial'
RTFSettings.DefaultFont.Style = []
RTFSettings.Title = 'Report'
TextFileName = '($MyDocuments)\Report.pdf'
TextSearchSettings.DefaultString = ''
TextSearchSettings.Enabled = False
XLSSettings.AppName = 'ReportBuilder'
XLSSettings.Author = 'ReportBuilder'
XLSSettings.Subject = 'Report'
XLSSettings.Title = 'Report'
XLSSettings.WorksheetName = 'Report'
CloudDriveSettings.DropBoxSettings.OAuth2.AuthStorage = [oasAccessToken, oasRefreshToken, oasEncryptTokens]
CloudDriveSettings.DropBoxSettings.OAuth2.RedirectURI = 'http://localhost'
CloudDriveSettings.DropBoxSettings.OAuth2.RedirectPort = 0
CloudDriveSettings.DropBoxSettings.OAuth2.RefreshTokenLifeSpan = 365
CloudDriveSettings.DropBoxSettings.DirectorySupport = True
CloudDriveSettings.DropBoxSettings.SharedResources = True
CloudDriveSettings.GoogleDriveSettings.OAuth2.AuthStorage = [oasAccessToken, oasRefreshToken, oasEncryptTokens]
CloudDriveSettings.GoogleDriveSettings.OAuth2.RedirectURI = 'http://localhost'
CloudDriveSettings.GoogleDriveSettings.OAuth2.RedirectPort = 0
CloudDriveSettings.GoogleDriveSettings.OAuth2.RefreshTokenLifeSpan = 365
CloudDriveSettings.GoogleDriveSettings.DirectorySupport = False
CloudDriveSettings.GoogleDriveSettings.SharedResources = False
CloudDriveSettings.OneDriveSettings.OAuth2.AuthStorage = [oasAccessToken, oasRefreshToken, oasEncryptTokens]
CloudDriveSettings.OneDriveSettings.OAuth2.RedirectURI = 'http://localhost'
CloudDriveSettings.OneDriveSettings.OAuth2.RedirectPort = 0
CloudDriveSettings.OneDriveSettings.OAuth2.RefreshTokenLifeSpan = 365
CloudDriveSettings.OneDriveSettings.DirectorySupport = True
CloudDriveSettings.OneDriveSettings.SharedResources = True
Left = 316
Top = 136
Version = '23.02'
mmColumnWidth = 0
DataPipelineName = 'ppJITPipeline1'
object ppHeaderBand3: TppHeaderBand
Visible = False
Border.mmPadding = 0
mmBottomOffset = 0
mmHeight = 19050
mmPrintPosition = 0
object ppLine4: TppLine
DesignLayer = ppDesignLayer2
UserName = 'Line1'
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
Weight = 0.750000000000000000
mmHeight = 794
mmLeft = 265
mmTop = 13758
mmWidth = 184150
BandType = 0
LayerName = Foreground1
end
object ppLabel1: TppLabel
DesignLayer = ppDesignLayer2
UserName = 'Label9'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
Caption = 'Conta'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
FormFieldSettings.FormFieldType = fftNone
Transparent = True
mmHeight = 3704
mmLeft = 1588
mmTop = 9525
mmWidth = 8467
BandType = 0
LayerName = Foreground1
end
object ppLabel2: TppLabel
DesignLayer = ppDesignLayer2
UserName = 'Label10'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
Caption = 'Saldo Anterior'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
FormFieldSettings.FormFieldType = fftNone
TextAlignment = taRightJustified
Transparent = True
mmHeight = 3704
mmLeft = 98425
mmTop = 9525
mmWidth = 20902
BandType = 0
LayerName = Foreground1
end
object ppLabel30: TppLabel
DesignLayer = ppDesignLayer2
UserName = 'Label11'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
Caption = 'D'#233'bitos'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
FormFieldSettings.FormFieldType = fftNone
Transparent = True
mmHeight = 3704
mmLeft = 130175
mmTop = 9525
mmWidth = 11113
BandType = 0
LayerName = Foreground1
end
object ppLabel31: TppLabel
DesignLayer = ppDesignLayer2
UserName = 'Label12'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
Caption = 'Saldo Atual'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
FormFieldSettings.FormFieldType = fftNone
Transparent = True
mmHeight = 3704
mmLeft = 168805
mmTop = 9525
mmWidth = 16140
BandType = 0
LayerName = Foreground1
end
object ppLabel32: TppLabel
DesignLayer = ppDesignLayer2
UserName = 'Label14'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
Caption = 'Cr'#233'ditos'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
FormFieldSettings.FormFieldType = fftNone
Transparent = True
mmHeight = 3704
mmLeft = 150019
mmTop = 9525
mmWidth = 12700
BandType = 0
LayerName = Foreground1
end
object ppRegion7: TppRegion
DesignLayer = ppDesignLayer2
UserName = 'Region7'
Brush.Color = clSilver
Caption = 'Region7'
mmHeight = 5292
mmLeft = 0
mmTop = 13758
mmWidth = 185209
BandType = 0
LayerName = Foreground1
mmBottomOffset = 0
mmOverFlowOffset = 0
mmStopPosition = 0
mmMinHeight = 0
object ppVariable20: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable20'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 167746
mmTop = 14817
mmWidth = 17198
BandType = 0
LayerName = Foreground1
end
object ppVariable21: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable21'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 146050
mmTop = 14817
mmWidth = 17198
BandType = 0
LayerName = Foreground1
end

bumboltorin

object ppVariable22: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable22'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 2
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 124090
mmTop = 14817
mmWidth = 17198
BandType = 0
LayerName = Foreground1
end
object ppVariable23: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable23'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 3
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 101071
mmTop = 14817
mmWidth = 17198
BandType = 0
LayerName = Foreground1
end
object ppLabel34: TppLabel
DesignLayer = ppDesignLayer2
UserName = 'Label1'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
Caption = 'Total Geral'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
FormFieldSettings.FormFieldType = fftNone
Transparent = True
mmHeight = 4233
mmLeft = 18256
mmTop = 14817
mmWidth = 28046
BandType = 0
LayerName = Foreground1
end
end
object ppVarProprietario3: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'VarProprietario3'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 4
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 12
Font.Style = [fsBold]
TextAlignment = taCentered
Transparent = True
mmHeight = 4995
mmLeft = 78581
mmTop = 529
mmWidth = 33274
BandType = 0
LayerName = Foreground1
end
end
object ppDetailBand3: TppDetailBand
Border.mmPadding = 0
mmBottomOffset = 0
mmHeight = 3969
mmPrintPosition = 0
object ppVariable1: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'VarDescOcorrencia'
HyperlinkEnabled = False
OnGetText = ppVariable1GetText
AutoSize = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Transparent = True
mmHeight = 3704
mmLeft = 3175
mmTop = -529
mmWidth = 78846
BandType = 4
LayerName = Foreground1
end
end
object ppGroup6: TppGroup
BreakName = 'GRUPO1'
GroupFileSettings.NewFile = False
GroupFileSettings.EmailFile = False
KeepTogether = True
OutlineSettings.CreateNode = True
ReprintOnSubsequentPage = False
StartOnOddPage = False
UserName = 'Group1'
mmNewColumnThreshold = 0
mmNewPageThreshold = 0
DataPipelineName = ''
NewFile = False
object ppGroupHeaderBand6: TppGroupHeaderBand
Visible = False
Border.mmPadding = 0
mmBottomOffset = 0
mmHeight = 16933
mmPrintPosition = 0
object ppRegion3: TppRegion
DesignLayer = ppDesignLayer2
UserName = 'Region1'
Brush.Color = clSilver
Caption = 'Region1'
mmHeight = 5292
mmLeft = 0
mmTop = 0
mmWidth = 185209
BandType = 3
GroupNo = 0
LayerName = Foreground1
mmBottomOffset = 0
mmOverFlowOffset = 0
mmStopPosition = 0
mmMinHeight = 0
object ppVariable2: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'VarDescGRUPO1'
HyperlinkEnabled = False
OnGetText = ppVariable2GetText
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
Transparent = True
mmHeight = 4233
mmLeft = 27517
mmTop = 794
mmWidth = 33073
BandType = 3
GroupNo = 0
LayerName = Foreground1
end
object ppVariable15: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable15'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 167746
mmTop = 794
mmWidth = 17198
BandType = 3
GroupNo = 0
LayerName = Foreground1
end
object ppVariable16: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable16'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 2
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 146050
mmTop = 794
mmWidth = 17198
BandType = 3
GroupNo = 0
LayerName = Foreground1
end
object ppVariable17: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable17'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 3
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 124090
mmTop = 794
mmWidth = 17198
BandType = 3
GroupNo = 0
LayerName = Foreground1
end

bumboltorin

object ppVariable18: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable18'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 4
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 101071
mmTop = 794
mmWidth = 17198
BandType = 3
GroupNo = 0
LayerName = Foreground1
end
end
end
object ppGroupFooterBand6: TppGroupFooterBand
Border.mmPadding = 0
HideWhenOneDetail = False
mmBottomOffset = 0
mmHeight = 0
mmPrintPosition = 0
end
end
object ppGroup7: TppGroup
BreakName = 'GRUPO2'
GroupFileSettings.NewFile = False
GroupFileSettings.EmailFile = False
KeepTogether = True
OutlineSettings.CreateNode = True
ReprintOnSubsequentPage = False
StartOnOddPage = False
UserName = 'Group2'
mmNewColumnThreshold = 0
mmNewPageThreshold = 0
DataPipelineName = ''
NewFile = False
object ppGroupHeaderBand7: TppGroupHeaderBand
Border.mmPadding = 0
mmBottomOffset = 0
mmHeight = 17992
mmPrintPosition = 0
object ppRegion4: TppRegion
DesignLayer = ppDesignLayer2
UserName = 'Region4'
Brush.Color = clSilver
Caption = 'Region4'
mmHeight = 5292
mmLeft = 0
mmTop = 0
mmWidth = 185209
BandType = 3
GroupNo = 1
LayerName = Foreground1
mmBottomOffset = 0
mmOverFlowOffset = 0
mmStopPosition = 0
mmMinHeight = 0
object ppVariable3: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable1'
HyperlinkEnabled = False
OnGetText = ppVariable3GetText
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
Transparent = True
mmHeight = 4233
mmLeft = 27517
mmTop = 265
mmWidth = 22754
BandType = 3
GroupNo = 1
LayerName = Foreground1
end
object ppVariable74: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable74'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 101071
mmTop = 265
mmWidth = 17198
BandType = 3
GroupNo = 1
LayerName = Foreground1
end
object ppVariable73: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable73'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 2
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 124090
mmTop = 265
mmWidth = 17198
BandType = 3
GroupNo = 1
LayerName = Foreground1
end

bumboltorin

object ppVariable72: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable72'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 3
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 146050
mmTop = 265
mmWidth = 17198
BandType = 3
GroupNo = 1
LayerName = Foreground1
end
object ppVariable71: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable71'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 4
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 167746
mmTop = 265
mmWidth = 17198
BandType = 3
GroupNo = 1
LayerName = Foreground1
end
end
end
object ppGroupFooterBand7: TppGroupFooterBand
Border.mmPadding = 0
HideWhenOneDetail = False
mmBottomOffset = 0
mmHeight = 0
mmPrintPosition = 0
end
end
object ppGroup8: TppGroup
BreakName = 'GRUPO3'
GroupFileSettings.NewFile = False
GroupFileSettings.EmailFile = False
KeepTogether = True
OutlineSettings.CreateNode = True
ReprintOnSubsequentPage = False
StartOnOddPage = False
UserName = 'Group3'
mmNewColumnThreshold = 0
mmNewPageThreshold = 0
DataPipelineName = ''
NewFile = False
object ppGroupHeaderBand8: TppGroupHeaderBand
Visible = False
Border.mmPadding = 0
mmBottomOffset = 0
mmHeight = 5556
mmPrintPosition = 0
object ppVariable4: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'VarDescGRUPO3'
HyperlinkEnabled = False
OnGetText = ppVariable4GetText
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
Transparent = True
WordWrap = True
mmHeight = 3704
mmLeft = 10319
mmTop = 1323
mmWidth = 33073
BandType = 3
GroupNo = 2
LayerName = Foreground1
end
object ppVariable874: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable874'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 3
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 101071
mmTop = 1323
mmWidth = 17198
BandType = 3
GroupNo = 1
LayerName = Foreground1
end
object ppVariable873: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable873'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 4
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 124090
mmTop = 1323
mmWidth = 17198
BandType = 3
GroupNo = 1
LayerName = Foreground1
end
object ppVariable872: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable872'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 2
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 146050
mmTop = 1323
mmWidth = 17198
BandType = 3
GroupNo = 1
LayerName = Foreground1
end
object ppVariable871: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable871'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 167746
mmTop = 1323
mmWidth = 17198
BandType = 3
GroupNo = 1
LayerName = Foreground1
end
end
object ppGroupFooterBand8: TppGroupFooterBand
Border.mmPadding = 0
HideWhenOneDetail = False
mmBottomOffset = 0
mmHeight = 0
mmPrintPosition = 0
end
end
object ppGroup9: TppGroup
BreakName = 'GRUPO4'
GroupFileSettings.NewFile = False
GroupFileSettings.EmailFile = False
KeepTogether = True
OutlineSettings.CreateNode = True
ReprintOnSubsequentPage = False
StartOnOddPage = False
UserName = 'Group4'
mmNewColumnThreshold = 0
mmNewPageThreshold = 0
DataPipelineName = ''
NewFile = False
object ppGroupHeaderBand9: TppGroupHeaderBand
Visible = False
Border.mmPadding = 0
mmBottomOffset = 0
mmHeight = 5556
mmPrintPosition = 0
object ppVariable5: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'VarDescGRUPO4'
HyperlinkEnabled = False
OnGetText = ppVariable5GetText
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
Transparent = True
mmHeight = 4233
mmLeft = 15346
mmTop = 1323
mmWidth = 33020
BandType = 3
GroupNo = 3
LayerName = Foreground1
end
object ppVariable7: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable7'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 167746
mmTop = 1323
mmWidth = 17198
BandType = 3
GroupNo = 3
LayerName = Foreground1
end

bumboltorin

object ppVariable8: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable8'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 2
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 146050
mmTop = 1323
mmWidth = 17198
BandType = 3
GroupNo = 3
LayerName = Foreground1
end
object ppVariable9: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable9'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 3
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 124090
mmTop = 1323
mmWidth = 17198
BandType = 3
GroupNo = 3
LayerName = Foreground1
end
object ppVariable10: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable10'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 4
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 101071
mmTop = 1323
mmWidth = 17198
BandType = 3
GroupNo = 3
LayerName = Foreground1
end
end
object ppGroupFooterBand9: TppGroupFooterBand
Border.mmPadding = 0
HideWhenOneDetail = False
mmBottomOffset = 0
mmHeight = 0
mmPrintPosition = 0
end
end
object ppGroup10: TppGroup
BreakName = 'GRUPO5'
GroupFileSettings.NewFile = False
GroupFileSettings.EmailFile = False
KeepTogether = True
OutlineSettings.CreateNode = True
ReprintOnSubsequentPage = False
StartOnOddPage = False
UserName = 'Group5'
mmNewColumnThreshold = 0
mmNewPageThreshold = 0
DataPipelineName = ''
NewFile = False
object ppGroupHeaderBand10: TppGroupHeaderBand
Visible = False
Border.mmPadding = 0
PrintHeight = phDynamic
mmBottomOffset = 0
mmHeight = 5556
mmPrintPosition = 0
object ppVariable6: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'VarDescGRUPO5'
HyperlinkEnabled = False
OnGetText = ppVariable6GetText
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
Transparent = True
WordWrap = True
mmHeight = 3704
mmLeft = 20373
mmTop = 1323
mmWidth = 33073
BandType = 3
GroupNo = 4
LayerName = Foreground1
end
object ppVariable11: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable11'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 167746
mmTop = 1323
mmWidth = 17198
BandType = 3
GroupNo = 4
LayerName = Foreground1
end
object ppVariable12: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable12'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 2
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 146050
mmTop = 1323
mmWidth = 17198
BandType = 3
GroupNo = 4
LayerName = Foreground1
end
object ppVariable13: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable13'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 3
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 124090
mmTop = 1323
mmWidth = 17198
BandType = 3
GroupNo = 4
LayerName = Foreground1
end
object ppVariable14: TppVariable
DesignLayer = ppDesignLayer2
UserName = 'Variable14'
HyperlinkEnabled = False
Border.Weight = 1.000000000000000000
Border.mmPadding = 0
BlankWhenZero = False
CalcOrder = 4
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Name = 'Arial'
Font.Size = 8
Font.Style = [fsBold]
TextAlignment = taRightJustified
Transparent = True
mmHeight = 4233
mmLeft = 101071
mmTop = 1323
mmWidth = 17198
BandType = 3
GroupNo = 4
LayerName = Foreground1
end
end
object ppGroupFooterBand10: TppGroupFooterBand
Border.mmPadding = 0
HideWhenOneDetail = False
mmBottomOffset = 0
mmHeight = 0
mmPrintPosition = 0
end
end
object ppDesignLayers2: TppDesignLayers
object ppDesignLayer2: TppDesignLayer
UserName = 'Foreground1'
LayerType = ltBanded
Index = 0
end
end
object ppParameterList4: TppParameterList
end
end
object ppJITPipeline1: TppJITPipeline
InitialIndex = 0
RecordCount = 99999999
UserName = 'JITPipeline1'
Left = 312
Top = 184
end
end

bumboltorin

para utilizar os fontes, pressionar ctrl+a para selecionar todo o texto, salvar em um arquivo Texto, elimitar as linhas bumboltorin 5:28PM do FRM, talvez acrescer um end no fim. Criar um Aplicativo VCL, alterar as informações deste post no unit1 PAS e DFM do formulário da aplicação usando o Editor. Para abrir o form clicar com o botão direito no formulário e clicar em View Text. Para salvar a alteração clique no botão direito e em View Form, altere por último o PAS. PAS= unit até end.