Fastreport y PDF sin pasar por un PREVIEW (SOLUCIONADO)

[Patricio Avalos Aguirre]

Estimados

hay alguna forma de imprimir una archivo de fastreport a pdf sin pasar por vista preliminar que sea directo, ya que necesito enviar ese archivo por mail
sin que el usuario se entere

desde ya muchas gracias

[jrestojeda]

Hola amigo...
Prueba así:

Code: Select all

oFr:PrepareReport()
oFr:DOExport("PDFExport")

Espero te sirva.
Saludos, Esteban.

[joseluisysturiz]

Haber si esto te ayuda, saludos...

////////////////////////////////////////////////////////////////////////
// GetProperty()/ Universal functions that set or return any property
// SetProperty() - (except object property) of any Fast Report object.
// Possible values of sObjectName:
//
// Report, Designer,
// PDFExport, HTMLExport, RTFExport, CSVExport,
// XLSExport, DotMatrixExport, BMPExport, JPEGExport,
// TIFFExport, GIFExport, SimpleTextExport, MailExport
//
// For properties of objects that is property of this
// "main" objects '.'-delimeter must be used. For
// example:
// "Designer.DefaultFont"
//
// For full list of values for sPropName param see Fast
// Report documentation:
// http://www.fast-report.com/en/documentation/
//
// Examples:
// SetProperty("Report", "ScriptLanguage", "PascalScript")
// SetProperty("PDFExport", "FileName", "My file.pdf")
// SetProperty("PDFExport", "ShowDialog", .f.)
//
// For Delphi enumerated types and set type use its
// string representation, for example:
// SetProperty("Designer.DefaultFont", "Style", "[fsBold, fsItalic]")
//
////////////////////////////////////////////////////////////////////////

METHOD SetProperty(sObjectName, sPropName, Value) class frReportManager
MEMVAR tmp_Param
PRIVATE tmp_Param := Value
RETURN Call_Func_CC_I(::_SetProperty, sObjectName, sPropName) == 1

[nnicanor]

Para enviar directamente a PDF

Code: Select all

   cFilenamePdf := "Prueba.pdf"

    oFr:SetProperty("PDFExport", "FileName", cFileNamePdf )
    oFr:SetProperty("PDFExport", "EmbeddedFonts", .t.)
    oFr:SetProperty("PDFExport", "PrintOptimized", .t.)
    oFr:SetProperty("PDFExport", "Creator", "Sistema Uno version 2.0")
    oFr:SetProperty("PDFExport", "OpenAfterExport", .t.)
    oFr:SetProperty("PDFExport", "ShowDialog",.f.)
    oFr:PrepareReport()
    oFr:DoExport("PDFExport")
 

Slds

[Patricio Avalos Aguirre]

Hola

Muchas gracias a todos, funciona perfectamente

[CARLOS ATUNCAR]

Saludos,
Algun ejemplo para exportar a Word

[Patricio Avalos Aguirre]

Hola

Segun el manual estos son las salidas que soporta, puede que tenga mas ya que tengo una versian antigua

:DoExport(<cExportObjectName>)
Exports a report using the specified export filter object.
Parameters: <cExportObjectName> - character string containing the name of filter object.
Possible value one of:
"PDFExport", "HTMLExport", "RTFExport", "CSVExport", "XLSExport",
"DotMatrixExport", "BMPExport", "JPEGExport", "TXTExport",
"TIFFExport", "GIFExport", "SimpleTextExport", "MailExport",
"XMLExport", "ODSExport", "ODTExport"
The detailed descriptions of these objects see below.