ModMain.insert_Barcode Method EDKB12WS.ModMain.insert_Barcode Method insert_Barcode Method topic_00000000000003D4 EDKB12WS.ModMain.insert_Barcode EDKB12WS.ModMain.insert_Barcode ModMain.insert_Barcode EDKB12WS.ModMain.ModMain.insert_Barcode EDKB12WS.ModMain.insert_Barcode EDKB12WS (in EDKB12WS.exe) ModMain.insert_Barcode Method EDKB12WS.ModMain topic_00000000000003D4

ModMain.insert_Barcode Method

Assembly: EDKB12WS (in EDKB12WS.exe)

Visual Basic Private Shared Sub insert_Barcode( _   ByVal x As ]]>Integera]]>]]> _ ) C# private static ]]>System.Voida]]>]]> insert_Barcode(   ]]>inta]]>]]> x ) C++ private: static ]]>System::Voida]]>]]> insert_Barcode(   ]]>inta]]>]]> x ) JScript private static function insert_Barcode(    x : ]]>inta]]>]]> ); Parametersx

$END-IFNOTEMPTY$

Visual Basic Copy Code ]]> Private Sub insert_Barcode(ByVal x As Integer)    Dim Form    Dim strsel As String    Dim strresult    Dim s As String    ' Selection.ShapeRange.Select    If DokType.bZu_retournieren.Value = True Then        Try            Form = objword.Selection.HeaderFooter.Shapes.Item(Textboxes(Textboxesi))            Form.Select()            Form = objword.Selection.HeaderFooter.Shapes.Item(Textboxes(Textboxesi))            Form.Select()            If OfficeVorlage.bBchorizontal.Value = False Then                objword.ActiveDocument.Tables.Add(Range:=objword.Selection.Range, NumRows:=1, NumColumns:=1)                With objword.Selection.Tables.Item(1)                    .Borders.Item(WdBorderType.wdBorderLeft).LineStyle = WdLineStyle.wdLineStyleNone                    .Borders.Item(WdBorderType.wdBorderRight).LineStyle = WdLineStyle.wdLineStyleNone                    .Borders.Item(WdBorderType.wdBorderTop).LineStyle = WdLineStyle.wdLineStyleNone                    .Borders.Item(WdBorderType.wdBorderBottom).LineStyle = WdLineStyle.wdLineStyleNone                    .Borders.Item(WdBorderType.wdBorderDiagonalDown).LineStyle = WdLineStyle.wdLineStyleNone                    .Borders.Item(WdBorderType.wdBorderDiagonalUp).LineStyle = WdLineStyle.wdLineStyleNone                    .Borders.Shadow = False                End With                objword.Selection.Orientation = WdTextOrientation.wdTextOrientationUpward                objword.Selection.Tables.Item(1).Rows.HeightRule = WdRowHeightRule.wdRowHeightAtLeast                objword.Selection.Tables.Item(1).Rows.Height = Form.height            End If            'gaga'            Dim id As String            id = Dokumentid            s = Bar25I(Microsoft.VisualBasic.Right(Right(id, Len(id) - 6), 16))            objword.Selection.TypeText(Text:=s)            objword.Selection.HomeKey(Unit:=WdUnits.wdLine, Extend:=WdMovementType.wdExtend)            objword.Selection.Font.Name = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("barcode_font")            objword.Selection.Font.Size = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("bcfont_groesse")            objword.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphRight            objword.Selection.EndKey(Unit:=WdUnits.wdLine)            objword.Selection.Font.Name = "Arial"            objword.Selection.Font.Size = 8            Dim Zeichen As String            Select Case DokType.iPhysisches_archiv.Value                Case 0                Case 1                    Zeichen = " U"                Case 2                    Zeichen = " F"            End Select            objword.Selection.TypeText(Zeichen)            Form = Nothing        Catch ex As Exception        End Try    End If End Sub

Windows 8, Windows Server 2012, Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows XP SP2 x64 Edition, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2 The .NET Framework does not support all versions of every platform. For a list of the supported versions, see ]]>System Requirementsa]]>]]>.

.NET Framework Supported in: 4.5, 4, 3.5, 3.0, 2.0, 1.1, 1.0 .NET Compact Framework Supported in: 3.5, 2.0, 1.0 XNA Framework Supported in: 3.0, 2.0, 1.0

Reference ModMain Class ModMain ModMain Members