+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

Inserisci "record" vuoti prima di stampare report

  1. #1
    CESABAS non  in linea Scribacchino
    Buonasera vi spiego il problema che ho.

    Con un report stampo le etichette con il codice a barre per i prodotti.
    Praticamente un foglio a4 con 3 colonne e 9 righe di etichette.

    Il report pronto e funziona...il problema che capita che debba stampare tipo solo 10 etichette..
    Mi rimane quindi pi di mezza pagina con le etichette.

    Per poterla utilizzare dovrei far saltare i primi 10 posti..

    Come potrei fare?

    Grazie

  2. #2
    CESABAS non  in linea Scribacchino
    ....Ho quasi risolto cos

    Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
    Dim OBJ As control
    etichette = Forms!m_carico_magazzino!etichette
    etichettevuote = etichettevuote + 1
    If etichette >= etichettevuote Then
        For Each OBJ In Me.Controls
            Select Case OBJ.ControlType
            Case Is = Access.AcControlType.acTextBox
                 Controls(OBJ.name).Visible = False
            Case Else
            End Select
        Next OBJ
        Me.NextRecord = False
        Exit Sub
    End If
     
    For Each OBJ In Me.Controls
        Select Case OBJ.ControlType
        Case Is = Access.AcControlType.acTextBox
        If OBJ.name <> "ENTRATI" Then
            Controls(OBJ.name).Visible = True
        End If
        Case Else
        End Select
    Next OBJ
     intPrintCounter = intPrintCounter + 1
      If intPrintCounter < Me.entrati Then
           ' Do not advance to the next record.
          Me.NextRecord = False
       Else
          ' Reset intPrintCounter and advance to next record.
          intPrintCounter = 0
       End If
    End Sub
    
    Forms!m_carico_magazzino!etichette il numero di etichette da saltare
    La seconda parte serve per stampare tante etichette quanto valorizzato il controllo me.entrati.

    Il problema che il primo controllo del primo record che deve essere visibile...non si vede....tutto il resto funziona

  3. #3
    L'avatar di muttley005
    muttley005 non  in linea Topo di biblioteca
    mumble mumble ... ho avuto anche io lo stesso problema di salto etichette ... appena possibile ti posto la mia soluzione, devo cercarla

  4. #4
    L'avatar di muttley005
    muttley005 non  in linea Topo di biblioteca
    trovato... premesso che l'ho trovato in un blog mi pare... forse proprio di Alex... non ricordo...
    cmq nell'evento "Su Apertura" metti "=LabelSetUp()" e nell'evento "Su Attivazione" metti "=LabelInitialize()"
    ed in un modulo che chiami come ti pare (io l'ho chiamato ETICHETTE) metti
    Option Compare Database
    Option Explicit
    
    Const COLONNE = 3, RIGHE = 8
    
    Dim intLabelBlanks As Integer
    Dim intLabelCopies As Integer
    Dim intBlankCount As Integer
    Dim intCopyCount As Integer
    '
    
    '==================================================================
       ' La seguente funzione viene eseguita al momento dell'esecuzione
       ' del report e permette all'utente, tramite due inputbox di
       ' digitare il numero di etichette usate da saltare quante
       ' copie di ogni etichetta devono essere stampate.
    '==================================================================
    
    Function LabelSetup()
    Dim i
    '
        i = Val(InputBox$("Digita il numero di etichette da lasciare bianche all'inizio (0-" & COLONNE * RIGHE - 1 & ")", "INFO", 0))
        i = i - Int(i / (COLONNE * RIGHE)) * COLONNE * RIGHE
        intLabelBlanks = i
    '
    '    intLabelCopies = Val(InputBox$("Digita il numero di copie da stampare per ogni etichetta","INFO",1))
        If intLabelBlanks < 0 Then intLabelBlanks = 0
        If intLabelCopies < 1 Then intLabelCopies = 1
    End Function
    
    '===========================================================
       ' La seguente funzione imposta a zero le variabili
    '===========================================================
    
    Function LabelInitialize()
        intBlankCount = 0
        intCopyCount = 0
    End Function
    
    '===============================================================
       ' La seguente funzione  la parte principale di questo codice
       ' che permette alle etichette di essere stampate come
       ' desiderato dall'utente
    '===============================================================
    
    Function LabelLayout(R As Report)
    '
        If intBlankCount < intLabelBlanks Then
            R.NextRecord = False
            R.PrintSection = False
            intBlankCount = intBlankCount + 1
        Else
            If intCopyCount < (intLabelCopies - 1) Then
                R.NextRecord = False
                intCopyCount = intCopyCount + 1
            Else
                intCopyCount = 0
            End If
        End If
    '
    End Function
    

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Report: sottoreport "vuoto" su prima pagina (2)
    Da murdok69 nel forum Microsoft Access
    Risposte: 3
    Ultimo Post: 13-05-2011, 18:29
  2. Report: sottoreport "vuoto" su prima pagina
    Da murdok69 nel forum Microsoft Word
    Risposte: 1
    Ultimo Post: 07-05-2011, 09:09
  3. Risposte: 3
    Ultimo Post: 13-04-2011, 18:32
  4. Risposte: 1
    Ultimo Post: 14-09-2010, 22:23
  5. Vecchio DB "non normalizzato" (record "multicampo")
    Da Lindo nel forum Microsoft Word
    Risposte: 2
    Ultimo Post: 02-04-2010, 20:11