Print fejl 481 (ved billed)

Hvilket format er det billed du forsøger at printe?? Ud fra hvad jeg kan læse, så understøtter VB ikke det format du ønsker at bruge

Det er bare en picturebox....

hvad er format af det, som der er i den picturebox?

Intet - Bruger draw til at "tegne" i den....

ok... Mit bedst bud er at du forsøger at udskrive selve objektet istedet for indholdet af objektet

Udskriver den sådan her : Printer.PaintPicture Stregkoden, 0, 0, 0, 0

Prøv lige at poste hele funktionen eller subben

Sub der "tegner"

Private Sub DrawBarCode(CodeType As String)
'Stregkoden.Cls
Barcode CodeType, 1234, Stregkoden, 2, 20, 0, 0
End Sub

Selve funktionen bag:

Public Function Barcode(CodeType As String, strCode As String, pic As Object, barscale As Integer, barHeight As Single, StartX As Single, startY As Single)
Dim barWidth As Single, i0 As Integer, barStart As Single
Select Case CodeType
    Case "39": strCode = UCase(strCode): Code39 strCode
    'Case "128": Code128 strCode
    'Case "2/5": strCode = IIf(Len(strCode) Mod 2 > 0, strCode & "0", strCode): Code25 strCode
    'Case "Codabar": strCode = UCase(strCode): Codabar strCode
End Select
barStart = StartX
For i0 = 1 To Len(sBar)
    barWidth = Mid(sBar, i0, 1) * barscale
    If i0 Mod 2 > 0 Then pic.Line (barStart, startY)-Step(barWidth, barHeight), vbBlack, BF
    barStart = barStart + IIf(i0 Mod 2 > 0, barWidth, barWidth * 1.3)
Next
pic.FontSize = 8: pic.CurrentX = StartX: pic.CurrentY = (startY * 1.2) + barHeight: pic.Print strCode
End Function

hmm..... det kan jeg desværre ikke lige hjælpe med lige nu... men jeg kigger lidt på det senere...

Er der virkelig ingen der ved det? :(

Hum, prøver at oprette det igen med flere point :)