Private Sub show_Vorschau()
'//Zeigt die Etikettenvorschau an
 
    Dim o As clsValues
    Set o = pValues
 
    With picPrint
        .ScaleMode = 6      '//Maßsystem auf 'mm' setzen
        .CurrentY = 2       '//oberer Seitenrand 2mm
        .CurrentX = 2
        .Font.name = "Arial"    '//Schrift "Arial"
        .Font.Size = 14         '//Schriftgröße 8
 
    '// Zeile1
        '{
        .FontUnderline = True
        picPrint.Print "AUFTRAG:";
        .FontUnderline = False
        .FontBold = True
        picPrint.Print "   " & o.dOrderNumber & " " & o.sCustomer
        '}
 
        .FontSize = 2
 
    '// Zeile 2
        picPrint.Print
 
        .FontSize = 12
        .CurrentX = 2
 
    '// Zeile 3
        '{
        If o.iFixLength <> 0 Then
            picPrint.Print "Fixlänge " & o.iFixLength
        Else
            If o.iMZA <> 0 Then
                picPrint.Print "Endlos - MZA " & o.iMZA
            Else
                picPrint.Print "Endlos"
            End If
        End If
        '}
 
        .FontBold = False
        .FontSize = 1
 
    '// Zeile 4
        picPrint.Print
 
        .FontSize = 9
 
    '// Zeile 5
        '{
        .CurrentX = 2
        picPrint.Print "Länge: ";
        .FontBold = True
        picPrint.Print o.iLength;
        .FontBold = False
        picPrint.Print " m";
        .CurrentX = 30
        picPrint.Print "Breite: ";
        .FontBold = True
        picPrint.Print o.iWidth;
        .FontBold = False
        picPrint.Print " mm";
        .CurrentX = 60
        picPrint.Print "Fläche: ";
        .FontBold = True
        picPrint.Print o.dSquare;
        .FontBold = False
        picPrint.Print " m²"
        '}
 
    '// Zeile 6
        '{
        .CurrentX = 2
        picPrint.Print "Holzart:";
        .CurrentX = 16
        .FontBold = True
        picPrint.Print o.iArtNr & " " & o.sWood
        .FontBold = False
        '}
 
    '// Zeile 7
        '{
        .CurrentX = 2
        picPrint.Print "Qualität:";
        .CurrentX = 16
        .FontBold = True
        picPrint.Print o.sFeature & " - " & o.sSign
        '}
 
    '// Zeile 8
        '{
        .CurrentX = 16
        picPrint.Print o.sQuality & " / " & o.sSort
        .FontBold = False
        '}
 
        .FontSize = 1
 
    '// Zeile 9
        picPrint.Print
 
        .FontSize = 9
 
    '// Zeile 10
        '{
        .CurrentX = 2
        picPrint.Print "Name:";
        .CurrentX = 16
        .FontBold = True
        picPrint.Print o.sName
        .FontBold = False
        '}
 
    '// Zeile 11
        '{
        .CurrentX = 2
        picPrint.Print "Datum: ";
        .CurrentX = 16
        .FontBold = True
        picPrint.Print o.sWeekday & ", " & o.iDay & ". " & o.sMonth & " " & _
          o.iYear & ", " & o.sTime & " - " & o.sShift
        .FontBold = False
        '}
 
        .FontSize = 1
 
    '// Zeile 12
        picPrint.Print
 
        .FontSize = 9
 
    '// Zeile 13
        '{
        .CurrentX = 2
        picPrint.Print "Maschine:";
        .CurrentX = 20
        .FontBold = True
        picPrint.Print " " & o.sMachine
        .FontBold = False
        '}
 
    '// Zeile 14
        '{
        .CurrentX = 2
        picPrint.Print "Bemerkung:";
        .CurrentX = 20
        .FontBold = True
        picPrint.Print " " & o.sRemark
        .FontBold = False
        '}
 
    '// Zeile 15
        .CurrentX = 2
        picPrint.Print "R.-ID.:";
        .CurrentX = 20
        .FontBold = True
        picPrint.Print o.dIDNr
        .FontBold = False
 
    '// Zeile 16
        picPrint.Line (0, .CurrentY)-(.ScaleWidth, .CurrentY)
 
    '// Zeile 17
        .ScaleMode = 6
        TBarCode.PrintDataText = False
        TBarCode.Text = o.dIDNr
        TBarCode.BCDraw picPrint.hDC, 50, 200, 270, 55
        TBarCode.PrintDataText = True
 
    End With
 
End Sub

    picPrint.AutoRedraw = True
    PrintPicture picPrint.Image, xPos, yPos
    picPrint.AutoRedraw = False
 
    Printer.EndDoc