è possibile stampare una riga excel con un PDF in automatico?

Question

Buongiorno a tutti, sto creando una distinta di produzione nella ditta in cui lavoro, l'idea è di fare una tabella in cui ogni riga contiene i dati di ogni articolo, alcuni saranno sempre quelli ( tipo nome articolo, nome cliente, materiale, collegamento PDF, ecc ecc) e quindi rimangono nella distinta base, altri invece andranno inseriti ad ogni nuovo ordine ( data di consegna, rif.ordine , quantità,ecc ecc) Tutti questi dati li voglio stampare a piè di pagina(o anche sul retro può andar bene) del PDF inserito in ogni riga, dite che è fattibile?

per ora ho trovato una macro che mi consente di stampare la riga desiderata semplicemente selezionando una cella di suddetta riga e successivamente cliccando un tasto, la macro è:

Public Sub Articolo()

Dim NC As interger

NC = 15

Range(Cells(ActiveCell.Row, NC) ) .select

Selection.PrintOut COPIES:=1, Collate:=True

End Sub

Questa però mi stampa solo la riga, io vorrei accoppiare pure l'intestazione colonna della tabella.

Answer 1

Questa piccolo codice lascia visibile solo la riga selezionata e ti permette di stampare quindi l'intera tabella con le intestazioni, modifica Tabella con il nome della tua tabella:

Option Explicit

Sub StampaTable()

Dim lobTable As ListObject

Set lobTable = ActiveSheet.ListObjects("Tabella") 

With lobTable 

    .DataBodyRange.Rows.Hidden = True 

    ActiveCell.EntireRow.Hidden = False 

End With 

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False 

End Sub

Questo le ripristina visibili

Sub VisualizzaTabella()

ActiveSheet.ListObjects("Tabella").DataBodyRange.Rows.Hidden = False 

End Sub

Ciao.

edit

scusa Norman, non avevo visto la tua risposta, ma sembrerebbe che l'abbiamo interpretata alla stessa maniera

Answer 2

Ciao Lorenzo,

Buongiorno a tutti, sto creando una distinta di produzione nella ditta in cui lavoro, l'idea è di fare una tabella in cui ogni riga contiene i dati di ogni articolo, alcuni saranno sempre quelli ( tipo nome articolo, nome cliente, materiale, collegamento PDF, ecc ecc) e quindi rimangono nella distinta base, altri invece andranno inseriti ad ogni nuovo ordine ( data di consegna, rif.ordine , quantità,ecc ecc) Tutti questi dati li voglio stampare a piè di pagina(o anche sul retro può andar bene) del PDF inserito in ogni riga, dite che è fattibile?

per ora ho trovato una macro che mi consente di stampare la riga desiderata semplicemente selezionando una cella di suddetta riga e successivamente cliccando un tasto, la macro è:

Public Sub Articolo()

Dim NC As interger

NC = 15

Range(Cells(ActiveCell.Row, NC) ) .select

Selection.PrintOut COPIES:=1, Collate:=True

End Sub

Questa però mi stampa solo la riga, io vorrei accoppiare pure l'intestazione colonna della tabella.

Potrei anche essere in minoranza, ma trovo la descrizione delle tue esigenze molto confusa, specialmente se letta insieme all'oggetto della tua richiesta.

Forse, quindi, considera di descrivere le tue esigenze in modo più dettagliato e includere alcuni screenshot descrittivi dei risultati desiderati.

Sarebbe anche utile se potessi caricare un file di esempio, privo di dati sensibili, su OnrDrive o DropBox e pubblicare un link al file in una risposta qui.

Tuttavia, se la tua intenzione fosse quella di stampare la riga (o le righe) selezionata di una tabella Excel, insieme alle intestazioni della tabella, prova qualcosa del genere:

'========>>

Option Explicit

'-------->>

Public Sub Articolo()

Dim oTabella As ListObject 

Const sTabella As String = **"Tabella1"          '<<=== Modifica**

Set oTabella = ActiveSheet.ListObjects(sTabella) 

With oTabella 

    .DataBodyRange.EntireRow.Hidden = True 

   Selection.EntireRow.Hidden = False 

    .Range.PrintOut Copies:=1 

    .DataBodyRange.EntireRow.Hidden = False 

End With 

End Sub

'<<========

===

Regards,

Norman