stampa diretta da VBA

Discussione:

(troppo vecchio per rispondere)

c***@riccardispa.it

2007-05-08 07:08:43 UTC

Ciao , ho creato una macro VBA in cui vado a stampare un foglio exel
sulla stamante predefinita che è il convertitore image di office . C'è
un modo per impostare direttamente da macro il nome del file di stampa
e quindi salvare senza che mi si presenti la maschera in cui va
appunto inserito il percorso ,il nome del file e la conferma di
salvataggio .

Grazie

Norman Jones

2007-05-08 07:33:13 UTC

Permalink

Ciao Ciro,

'-----------------
ho creato una macro VBA in cui vado a stampare un foglio exel
sulla stamante predefinita che è il convertitore image di office . C'è
un modo per impostare direttamente da macro il nome del file di stampa
e quindi salvare senza che mi si presenti la maschera in cui va
appunto inserito il percorso ,il nome del file e la conferma di
salvataggio .
'-----------------

In un modulo standard (vedi di sotto),
prova qualcosa del genere:

'=============>>
Public Sub Tester()
Dim WB As Workbook

Set WB = Workbooks("Pippo.xls") '<<=== da CAMBIARE
With WB
.PrintOut
.Close SaveChanges:=True
End With

End Sub
'<<=============

Alt-F11 per aprire l'Editor di VBA
Menu | Inserisci | Modulo
Incolla il suddetto codice
Alt-F11 per tornare in Excel

---
Regards,
Norman
Microsoft Excel MVP

c***@riccardispa.it

2007-05-08 09:47:35 UTC

Permalink

Post by Norman Jones
Ciao Ciro,
'-----------------
ho creato una macro VBA in cui vado a stampare un foglio exel
sulla stamante predefinita che è il convertitore image di office . C'è
un modo per impostare direttamente da macro il nome del file di stampa
e quindi salvare senza che mi si presenti la maschera in cui va
appunto inserito il percorso ,il nome del file e la conferma di
salvataggio .
'-----------------
In un modulo standard (vedi di sotto),
'=============>>
Public Sub Tester()
Dim WB As Workbook
Set WB = Workbooks("Pippo.xls") '<<=== da CAMBIARE
With WB
.PrintOut
.Close SaveChanges:=True
End With
End Sub
'<<=============
Alt-F11 per aprire l'Editor di VBA
Menu | Inserisci | Modulo
Incolla il suddetto codice
Alt-F11 per tornare in Excel
---
Regards,
Norman
Microsoft Excel MVP

Non funziona , comunque si ferma sulla maschera di impostazione del
nome del file di stampa che io dovrei impostare in qualche modo da
VBA . Ricordo che la mia stampante è il convertitore di office 'Image
writer'
...

Norman Jones

2007-05-08 10:37:54 UTC

Permalink

Cioa Ciro,

'--------------------
Non funziona , comunque si ferma sulla maschera di impostazione del
nome del file di stampa che io dovrei impostare in qualche modo da
VBA . Ricordo che la mia stampante è il convertitore di office 'Image
writer'
'--------------------

Prova:

'=============>>
Public Sub Tester()
Dim WB As Workbook
Dim sStr As String

Set WB = Workbooks("Pippo.xls") '<<=== da CAMBIARE

sStr = WB.Name _
& Format(Now, "yyyy-mm-dd (hh-mm)") _
& ".prn" '<<=== da CAMBIARE

With WB
.PrintOut Copies:=1, _
printtofile:=True, _
PrToFileName:="sstr2"
.Close SaveChanges:=True
End With

End Sub
'<<=============

---
Regards,
Norman
Microsoft Excel MVP

...

Norman Jones

2007-05-08 10:43:40 UTC

Permalink

Post by Norman Jones
PrToFileName:="sstr2"

con

PrToFileName:= sStr

---
Regards,
Norman
Microsoft Excel MVP

c***@riccardispa.it

2007-05-08 11:03:27 UTC

Permalink

Post by Norman Jones
Cioa Ciro,
'--------------------
Non funziona , comunque si ferma sulla maschera di impostazione del
nome del file di stampa che io dovrei impostare in qualche modo da
VBA . Ricordo che la mia stampante è il convertitore di office 'Image
writer'
'--------------------
'=============>>
Public Sub Tester()
Dim WB As Workbook
Dim sStr As String
Set WB = Workbooks("Pippo.xls") '<<=== da CAMBIARE
sStr = WB.Name _
& Format(Now, "yyyy-mm-dd (hh-mm)") _
& ".prn" '<<=== da CAMBIARE
With WB
.PrintOut Copies:=1, _
printtofile:=True, _
PrToFileName:="sstr2"
.Close SaveChanges:=True
End With
End Sub
'<<=============
---
Regards,
Norman
Microsoft Excel MVP
...

Va meglio , ma mi stampa il contenuto di tutti i fogli del file
exel ,dovrei indicarne solo uno .
Scusa la mia ignoranza ma non ho capito il significato di questa
istruzione , infatti l'ho tolta.Che cosa è il formato .prn il mio
convertitore fa dei .mdi ...

sStr = WB.Name _

Post by Norman Jones
& Format(Now, "yyyy-mm-dd (hh-mm)") _
& ".prn" '<<=== da CAMBIARE

......

Norman Jones

2007-05-08 11:18:32 UTC

Permalink

Ciao Ciro,

'-----------------
Va meglio , ma mi stampa il contenuto di tutti i fogli del file
exel ,dovrei indicarne solo uno .
Scusa la mia ignoranza ma non ho capito il significato di questa
istruzione , infatti l'ho tolta.Che cosa è il formato .prn il mio
convertitore fa dei .mdi ...

sStr = WB.Name _

Post by Norman Jones
& Format(Now, "yyyy-mm-dd (hh-mm)") _
& ".prn" '<<=== da CAMBIARE

'-----------------

'=============>>
Public Sub Tester()
Dim WB As Workbook
Const sFile As String = "Foglio1" '<<=== da CAMBIARE
Const sStr As String = "Pippo" '<<=== da CAMBIARE

Set WB = Workbooks("Pippo.xls") '<<=== da CAMBIARE

With WB
.Sheets(sFoglio).PrintOut Copies:=1, _
printtofile:=True, _
PrToFileName:="sstr2"
.Close SaveChanges:=True
End With

End Sub
'<<=============

Norman Jones

2007-05-08 11:40:18 UTC

Permalink

Ciao Ciro,

Sostituisci il mio codice con:

'=============>>
Public Sub Tester()
Dim WB As Workbook
Const sFoglio As String = "Foglio1" '<<=== da CAMBIARE
Const sStr As String = "Pippo" '<<=== da CAMBIARE

Set WB = Workbooks("Pippo.xls") '<<=== da CAMBIARE

With WB
.Sheets(sFoglio).PrintOut Copies:=1, _
Printtofile:=True, _
PrToFileName:=sFoglio
.Close SaveChanges:=True
End With

End Sub
'<<=============

---
Regards,
Norman
Microsoft Excel MVP

c***@riccardispa.it

2007-05-08 13:20:14 UTC

Permalink

Post by Norman Jones
Ciao Ciro,
'=============>>
Public Sub Tester()
Dim WB As Workbook
Const sFoglio As String = "Foglio1" '<<=== da CAMBIARE
Const sStr As String = "Pippo" '<<=== da CAMBIARE
Set WB = Workbooks("Pippo.xls") '<<=== da CAMBIARE
With WB
.Sheets(sFoglio).PrintOut Copies:=1, _
Printtofile:=True, _
PrToFileName:=sFoglio
.Close SaveChanges:=True
End With
End Sub
'<<=============
---
Regards,
Norman
Microsoft Excel MVP

ok ti faccio sapere
grazie

c***@riccardispa.it

2007-05-09 06:44:17 UTC

Permalink

Post by c***@riccardispa.it