Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[vba access 2003]: stampare file di testo

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: [vba access 2003]: stampare file di testo

Postdi Flash30005 » 01/02/13 00:43

Cosa vorresti inserire nella testata e nel pie' di pagina (un testo, una data, un numero di pagina etc)?
dove (a sinistra, al centro, a destra)?

Per un testo a sinistra usa questa macro abbinandola all'apposito pulsante
Codice: Seleziona tutto
Private Sub Comando2_Click()
    Set XL = CreateObject("Excel.Application")
    XL.Visible = True
    Perc = "C:\Tuopercorso\Karug64\"
    NFile = "TEST_PRINT.txt"
    MyFile = Perc & NFile
    XL.Workbooks.OpenText MyFile
    Set WB = XL.ActiveWorkbook
    Set WS = WB.Worksheets(1)
    WS.cells.Clear
    Close #1
    Riga = 0
    Open MyFile For Input As #1
    Do While Not EOF(1)
        Riga = Riga + 1
        Line Input #1, Rigatesto
        WS.Range("A" & Riga).Value = Rigatesto
    Loop
    Close #1
    WS.Columns("A").Font.Name = "Courier New"
    WS.Columns("A").Font.Size = 8
    WS.Columns("A").EntireColumn.AutoFit
    Set PageSetup = WS.PageSetup
    PageSetup.Orientation = 2
    PageSetup.LeftMargin = XL.InchesToPoints(0.287401575)
    PageSetup.RightMargin = XL.Application.InchesToPoints(0.287401575)
    PageSetup.LeftHeader = "AAAAAAAAAA"  '<<<< testo testata a sinistra
    PageSetup.LeftFooter = "BBBBBBBBB"  '<<<< testo pie' di pagina a sinistra
    WB.PrintOut
    WB.Close False
    XL.Quit
Set XL = Nothing

End Sub


ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Sponsor
 

Re: [vba access 2003]: stampare file di testo

Postdi karug64 » 01/02/13 23:01

Ciao.
Ovviamente funziona :)

A me servirebbe poter settare anche la dimensione dei caratteri oltre che la posizione dell'intestazione e del pie di pagina:

intestazione: 8 cpi allineanto a dx

pie di pagina: 8 cpi allineato a sinistra

Grazie.
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Re: [vba access 2003]: stampare file di testo

Postdi Flash30005 » 01/02/13 23:17

Per la posizione ok ma per il font 8 cpi lo devi impostare nella stringa che vedi evidenziata con &8 prima della stringa
questa è la macro con le ultime specifiche
Codice: Seleziona tutto
Private Sub Comando2_Click()
    Set XL = CreateObject("Excel.Application")
    XL.Visible = False
    Perc = "C:\Tuopercorso\Karug64\"
    NFile = "TEST_PRINT.txt"
    MyFile = Perc & NFile
    XL.Workbooks.OpenText MyFile
    Set WB = XL.ActiveWorkbook
    Set WS = WB.Worksheets(1)
    WS.cells.Clear
    Close #1
    Riga = 0
    Open MyFile For Input As #1
    Do While Not EOF(1)
        Riga = Riga + 1
        Line Input #1, Rigatesto
        WS.Range("A" & Riga).Value = Rigatesto
    Loop
    Close #1
    WS.Columns("A").Font.Name = "Courier New"
    WS.Columns("A").Font.Size = 8
    WS.Columns("A").EntireColumn.AutoFit
    Set PageSetup = WS.PageSetup
    PageSetup.Orientation = 2
    PageSetup.LeftMargin = XL.InchesToPoints(0.287401575)
    PageSetup.RightMargin = XL.Application.InchesToPoints(0.287401575)
    PageSetup.RightHeader = "&8AAAAAAAAAA"   '<<<<< attenzione qui a &8 rispettare la sintassi
    PageSetup.leftFooter = "&8BBBBBBBBB"   '<<<<< attenzione qui a &8  rispettare la sintassi
    WB.PrintOut
    WB.Close False
    XL.Quit
Set XL = Nothing

End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [vba access 2003]: stampare file di testo

Postdi karug64 » 03/02/13 12:51

ehm ... e se volessi fare un'anteprima di stampa invece di stampare direttamente ? ;)

Grazie
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Re: [vba access 2003]: stampare file di testo

Postdi Flash30005 » 03/02/13 14:53

Ma eri certo di cosa dovevi fare sin dall'inizio?
Hai parlato di stampare una certa riga
poi tutto il file
ora il preview
ok, sperando di chiudere con successo questo topic :D
Codice: Seleziona tutto
Private Sub Comando2_Click()
    Set XL = CreateObject("Excel.Application")
    'XL.Visible = False
    XL.Visible = True
    Perc = "C:\Tuopercorso\Karug64\"
    NFile = "TEST_PRINT.txt"
    MyFile = Perc & NFile
    XL.Workbooks.OpenText MyFile
    Set WB = XL.ActiveWorkbook
    Set WS = WB.Worksheets(1)
    WS.cells.Clear
    Close #1
    Riga = 0
    Open MyFile For Input As #1
    Do While Not EOF(1)
        Riga = Riga + 1
        Line Input #1, Rigatesto
        WS.Range("A" & Riga).Value = Rigatesto
    Loop
    Close #1
    WS.Columns("A").Font.Name = "Courier New"
    WS.Columns("A").Font.Size = 8
    WS.Columns("A").EntireColumn.AutoFit
    Set PageSetup = WS.PageSetup
    PageSetup.Orientation = 2
    PageSetup.LeftMargin = XL.InchesToPoints(0.287401575)
    PageSetup.RightMargin = XL.Application.InchesToPoints(0.287401575)
    PageSetup.RightHeader = "&8AAAAAAAAAA"
    PageSetup.leftFooter = "&8BBBBBBBBB"
    WB.PrintOut preview:=True
    'WB.PrintOut
    WB.Close False
    XL.Quit
Set XL = Nothing
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [vba access 2003]: stampare file di testo

Postdi karug64 » 03/02/13 15:43

Flash30005 ha scritto:Ma eri certo di cosa dovevi fare sin dall'inizio?
Hai parlato di stampare una certa riga
poi tutto il file
ora il preview
ok, sperando di chiudere con successo questo topic :D

Ciao


Ok.
Sai l'appetito vien mangiando ...
l'idea della riga trasformata in file è stata una necessita' nata durante le varie soluzioni proposte ( mi stampava una riga per foglio !! Quindi nel mio ciclo ho dovuto creare un nuovo file dove ho scritto le righe dell'eleborazione. Da qui la possibilita' di far chiedere all'utente finale se desidera stampare o, una volta che c'e' il file, vuole solo visionarlo in anteprima ....)

Ritengo che ora questo argomento sia chiuso.

Grazie.



Chiuso.
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "[vba access 2003]: stampare file di testo":


Chi c’è in linea

Visitano il forum: Nessuno e 13 ospiti