+1 800 256 3608 (toll-free in North America) or +49 7531 90 60 10| service@combit.com

Nur die LL erstellen lassen ohne Vorschau starten


(Guest) #1

Hallo,

ich habe schon viel gesucht und ausprobiert aber nichts hat geholfen. Ich Programmiere in Vb6 und habe LL16 im Einsatz. Ich möchte gerne eine LL Drucken aber er soll mir die Vorschau weglassen die kommt aber immer wieder.

Public Sub LLPrint_Ausgabe(PrintKey As String, LL As Variant, pfad As String, PrintBlatt As String)

     Dim ret%
     LL.LlSetDebug (1)
     LL.LlDefineVariableStart
     LL.LlDefineFieldStart
          
     DatenStruktur_ins_LL_Laden PrintKey, LL

     Select Case UCase$(PrintBlatt)
                 Case "LST"
                    ret% = LL.LlPrintWithBoxStart(LL_PROJECT_LIST, pfad, LL_PRINT_PREVIEW, LL_BOXTYPE_EMPTYABORT, 0, "Ausdruck")
                 Case "CRD"
                    ret% = LL.LlPrintWithBoxStart(LL_PROJECT_CARD, pfad, LL_PRINT_PREVIEW, LL_BOXTYPE_EMPTYABORT, 0, "Ausdruck")
                 Case Else
          End Select

     If ret <> 0 Then
         Dim psbuffer As String
         psbuffer = ret
         MsgBox ("Error during LlPrintWithBoxStart" & vbCrLf & "Error No: " & CStr(ret))
         Exit Sub
     End If

     LL.LlPrint 'D:   Variablen drucken

            DatenStruktur_ins_LL_Laden PrintKey, LL
     'Call LL.LlSetOption(LL_OPTION_INCREMENTAL_PREVIEW, 0)
     If ret% = LL_ERR_USER_ABORTED Then 'D:   Wenn der Benutzerabbricht                 
         LL.LlPrintEnd (0)
         Exit Sub
     End If

     'LL_OPTION_INCREMENTAL_PREVIEW = 0
     ret% = LL.LlPrintEnd(0) 'D:   Druck beenden
     'LL_OPTION_INCREMENTAL_PREVIEW = 0

End Sub

DANKE Gruß Josi


(Guest) #2

Hallo Josi,

sollte funktionieren, wenn du “LL.LlSetOption(LL_OPTION_INCREMENTAL_PREVIEW, 0)”
VOR “LL.LlPrint” aufrufst.

Gruß, Micha