Ciao ragazzi,
sto cercando di capire come ottenere dal componente in oggetto il formato UNI, qualcuno lo sa?
Io credevo di aver individuato nella proprietà Type di PdfAction quello che faceva al caso mio, ma non riesco a usarlo senza ottenere un errore di segmentazione.
A seguire un codice provato:
Public Sub Main()
Dim hPdf As PdfDocument
' Dim hAction As PdfAction
Dim sPath, sType As String
Dim iHeight As Integer
' prima occorre inserire un file pdf nel progetto:
sPath = Application.Path &/ "test.pdf"
hPdf = New PdfDocument(sPath)
' Try hAction = New PdfAction
' Try sType = hAction.Type ' <------------Da errore di segmentazione!
' If Error Then Print Error.Text
'' e l'altezza restituita non corrisponde ad alcun formato UNI
' iHeight = Round((hPdf[0].Render().Height) * 0.393700787401575)
' Print iHeight
' sType = ReturnType(iHeight)
' Print sType
End
Private Sub ReturnType(iHeight As Integer) As String
Dim aList As String[] = ["Custom", "A3", "A4", "A5", "B5", "Letter", "Executive", "Legal"]
Dim i As Byte
' else, 420, 297, 210, 250, 279, 330, 356 mm
Select iHeight
Case 420
i = 1
Case 297
i = 2
Case 210
i = 3
Case 250
i = 4
Case 279
i = 5
Case 330
i = 6
Case 356
i = 7
Case Else
i = 0
End Select
Return aList[i]
End
