Newsgroup: it.comp.appl.access
Titolo: form 2 pulsanti stampa (carta - PDF)

Ri-salve al NG.
Premesso che ho giï¿œ spulciato il sitocomune.
Avrei la necessitï¿œ (comoditï¿œ) di avere questa opzione:
Nella/e form, mettere un pulsante stampa che mi mostri una finestra con
  la scelta:
       Stampa record corrente sulla:
    [stampante - carta] [stampante - PDF]
In pratica vorrei semplificare il passaggio.
[menu]-[Stampa]-[Scelta stampante]-[ok]
Sareste cosï¿œ gentili da dirmi quale codice mettere nella mascherina di
  scelta per inviare la stampa del record corrente, verso una determinata
  stampante? ^_^
-- 
A.GiovanniB.

 A.GiovanniB.
Nelle struttura del report
File/Imposta pagina/pagina/stampante specifica/stampante
dove dovrai scegliere tra le stampanti a disposizione
nel tuo caso naturalmente dovrai installare una stampante pdf
come ad esempio PDFcreator

 come ad esempio PDFcreator
Per la stampante PDF non ci son problemi, ma non ho capito come
mettere i 2 pulsanti, 1 che stampa su carta, uno su PDF...
-- 
A.GiovanniB.


Vedi sull' help di VBA alla voce printer
Ciao
Alberto

 ha scritto nel messaggio 
news:4a784c38$0$40003$4faf...@reader3.news.tin.it...

Prepara Questa MASCHERA
http://rapidshare.com/files/263684757/SceltaFax.doc
Assegni in un modulo questo:
Public RispostaFax As Byte
Option Compare Database
Option Explicit
Private Sub Annulla_Click()
  RispostaFax = 5
  DoCmd.RunMacro "AutoID.Chiudi" 'Macro per chiudere la maschera
End Sub
Private Sub Stampa_Click()
  RispostaFax = 4
  DoCmd.RunMacro "AutoID.Chiudi"
End Sub
Private Sub Anteprima_Click()
  RispostaFax = 3
  DoCmd.RunMacro "AutoID.Chiudi"
End Sub
Private Sub EMail_Click()
  RispostaFax = 2
  DoCmd.RunMacro "AutoID.Chiudi"
End Sub
Private Sub Fax_Click()
  RispostaFax = 1
  DoCmd.RunMacro "AutoID.Chiudi"
End Sub
Spero di essere stato chiaro.
Ciao
Graziano 

 wrote:

Caso peggiore, se non ne vieni a capo, due report uguali (Stampa e
StampaPdf) dove uno usa la stampante predefinita e l'altro la
stampante specifica PdCreator
(vedi File > Imposta pagina > Pagina)
Non è per niente elegante, ma in mancanza di altro...  Funziona.
Ovviamente sull' evento click dei due pulsanti:
docmd.openreport  "Stampa"
e
docmd.openreport  "StampaPdf"
In alternativa potresti usare una combo che ti propone Stampa o PDF e
sull'evento click scegli il report in funzione della voce scelta.
Saluti
Alberto

Ringrazio tutti per le dritte, ed ora ci provo ^_^
-- 
A.GiovanniB.

Rieccomi, perdonate un povero niubbo ;-P
Risolto il problema della scelta stampante con una form ed una Combobox
Arrivo al punto di avere il nome della stampante scelta in una variabile
  comune al DB:  STAMPANTE   (definita: Pubblic STAMPANTE as Form)
Ora, come faccio a dire di stampare su quella stampante?
Dovrebbe essere cosï¿œ:
On Error GoTo Err_Stampa
     Set Me.Printer = STAMPANTE
      DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
      DoCmd.PrintOut acSelection
Exit_Stampa:
     Exit Sub
Err_Stampa:
     MsgBox Err.Description
     Resume Exit_Stampa
Il che non funziona e mi da:
  [Errore di compilazione: necessario oggetto.]
nel punto Set Me.Printer... ;-/
Ultima banalitï¿œ, ma non la trovo...
	Variabile = NomemascheraCorrente...
	Si scrive cosï¿œ:?
	 Dim VARIABILE as String
	 VARIABILE = Me.Name
--
A.GiovanniB.


leggi qui:
www.donkarl.com/it?FAQ5.1
-- 
Ciao
Geppo 

 
www.donkarl.com/it?FAQ5.1
Tnk, aggiunto ai preferiti.
-- 
A.GiovanniB.