Q: A big help would also be a width check. If pdf width > 300 mm move to another folder. Then I could use some system tools on the pdf.
A: In version v2022.5.5.0 we added some Pascal Script function to achieve this.
-First we added two WIN destinations.
- Destination with ID1 should contain the pdf files with a width <= 300 points
- Destination with ID2 should contain the pdf files with a width > 300 points
-Next you’ll some Pascal Script
-Please Add and Enable ‘On Destinations‘
Var
tmpCount: Integer;
tmpHeight, tmpWidth: Double;
tmpFile: String;
Const
ctMaxWidth = 300;
Begin
psExitCode:= -1;
// ... add your code here
tmpFile := psFilePath + psFileName;
If psPdfGetPageCount(tmpFile, '', tmpCount) Then
psLogWrite(1, '', 'Page Count of ' + tmpFile +' : ' + IntToStr(tmpCount));
If psPdfGetPageHeight(psFilePath+psFileName, '', 1, tmpHeight) Then
psLogWrite(1, '', 'Page Height of ' + tmpFile + ' : ' + FloatToStr(tmpHeight));
If psPdfGetPageWidth(psFilePath+psFileName, '', 1, tmpWidth) Then
Begin
psLogWrite(1, '', 'Page Width of ' + tmpFile + ' : ' + FloatToStr(tmpWidth));
// Check Width
// Pdf Files <= ctMaxWidth should go to DestinationID 1
// Pdf Files > ctMaxWidth should go to DestinationID 2
If (psDestinationID = 'ID1') And (tmpWidth <= ctMaxWidth) Then psExitCode := 1;
If (psDestinationID = 'ID2') And (tmpWidth > ctMaxWidth) Then psExitCode := 1;
End
Else
begin
// Error Loading Pdf File, set psExitCode to 0
psExitCode := 0;
End;
End.
– RunTime Log Result:
#Filetransfer #PDF
If you need any info about this ‘Check pdf pagewidth’ option, please let us know.
Best regards,
Limagito Team