PdcSerialNumber.Print

From External Bemet Wiki
Jump to: navigation, search

Declaration[edit]

Print(LayoutName as String) as Boolean

Description[edit]

Print a layout for this serial number

Notes[edit]

This function prints the provided layout for this serial number.

Code example[edit]

Print a serial number layout and show the calculation text.

sub PrintSerialLayout
dim objSerialno
dim objCalc
    set objSerialNo = pdc.ProductRegistration.Serialnumbers.Open("0900001-0001")
    if isValid(objSerialNo) then
       objSerialNo.Print "(SN)Barcode serienummer"
       set objCalc = pdc.OpenCalculation(objSerialNo.CalcNo)
       if isValid(objCalc) then
          Msgbox objCalc.Text
       end if
    end if
    set objSerialNo = nothing
    set objCalc = nothing
end sub

Availability[edit]

Available since March 2009 (from version 3.9).