Condividi:        

stampa userform

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

stampa userform

Postdi daniele677 » 22/12/09 19:16

salve a tutti
ho bisogno di nuovo del Vs prezioso aiuto per risolvere alcuni problemi.
uso Win Xp e office 2000

1) ho scritto in un modulo di un foglio la seguente macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$G$6" Then Range("G6") = "X"
End Sub
quindi cliccando sulla cella G6 mi compare la X,
non riesco a fare l'istruzione che clicclando di nuovo sulla cella G6 la X scompare, ci sono riuscito solo con un doppio clik

2) ho inserito su una userform da casella degli strumenti tre immagini, su ogni immagine ho inserito una "picture" formato A4, su ogni immagine inseriro' delle textbox per inserire dati, quando stampo pero' la procedura stampa solo la pagina 1 = Picture 1, cioe' la prima pagina Formato A4 quale istruzione e' necessaria per stampare anche le altre pagine

3) vorrei anche inserire un pulsante per stampare in Pdf la userform, tuttavia non riesco a costruire una macro che
mi selezioni in automatico la stampante Pdf ed ignoro se e' possibile in excel far in modo che il file in pdf sia composto di piu' pagine
daniele677
Utente Junior
 
Post: 16
Iscritto il: 22/12/08 19:11

Sponsor
 

Re: stampa userform

Postdi Flash30005 » 22/12/09 21:27

Prova questa
Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$G$6" Then
    If Range("G6").Value = "" Then
        Range("G6").Value = "X"
    Else
        Range("G6").Value = ""
    End If
    ActiveCell.Offset(0, 1).Select
End If
End Sub



Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: stampa userform

Postdi daniele677 » 28/12/09 17:55

grazie per l'aiuto, come sempre prezioso

qualche idea per il problema n. 2 e 3?
daniele677
Utente Junior
 
Post: 16
Iscritto il: 22/12/08 19:11

Re: stampa userform

Postdi Flash30005 » 29/12/09 23:13

Per il quesito 2 non ho idea di cosa hai fatto, una userform per stampare un'immagine con del testo?

per il quesito 3 invece posso darti un codice ma è valido solo per la configurazione che ho nel mio Pc
Codice: Seleziona tutto
Sub StampaPdf()
    Application.ActivePrinter = "Adobe PDF su Ne03:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Adobe PDF su Ne03:", Collate:=True
    Application.CommandBars("Stop Recording").Visible = False
    Application.CommandBars("Stop Recording").Visible = True
End Sub

per ottenere un codice adatto al tuo Pc devi avere la stampante pdf nel sistema, dopodiché registri una macro e dal foglio di excel esegui la procedura di stampa in pdf (File > Stampa > - scelta stampante pdf > premi ok).
Fermi la registrazione e hai il codice di stampa dell'intera cartella in un file formato pdf (con la tua stampante pdf).

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: stampa userform

Postdi daniele677 » 30/12/09 16:29

forse la descrizione dei quesiti n 2 e 3 e' poco esauriente
vorrei inviare un file di esempio ma non riesco ad allegarlo potresti darmi delle indicazioni

preciso per il problema n. 3 che vorrei stampare in pdf una userform senza dover prima selezionare come predefinita una stampante pdf installata
daniele677
Utente Junior
 
Post: 16
Iscritto il: 22/12/08 19:11

Re: stampa userform

Postdi Flash30005 » 31/12/09 02:31

Beh per allegare un file .pdf o lo hai già nel Pc oppure lo devi creare con la procedura mensionata su poi (solo adesso si parla di invio) dovresti specificare quale programma di messaggistica usi
Outlook express, Outlook di Office, Lotus etc.
Nel frattempo dai un'occhiata ad alcuni recenti post su come allegare file ad una email.

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: stampa userform

Postdi daniele677 » 02/01/10 09:18

allego il file in excel
http://rapidshare.de/files/48929034/ese ... t.zip.html
si puo' notare che ho inserito le tre immagini sulla userform inserendo ognuna in una "image" caricata da casella degli strumenti
non riesco a far stampare tutte e tre le pagine, stampa sempre la prima
e non riesco a convertire in pdf l'intera userform, converte solo la prima pagina
esiste la possibilta di selezionare la stampante pdf per la stampa della userform con una macro simile a quella gia' indicata, senza doverla prima impostare come predefinita nel sistema
daniele677
Utente Junior
 
Post: 16
Iscritto il: 22/12/08 19:11

Re: stampa userform

Postdi Anthony47 » 02/01/10 19:29

Non credo che PrintForm sia pensata per stampare piu' pagine; e se comunque le stampasse, trattandosi di una stampa bitmap della form e non delle immagini inserite sarebbe difficile garantire la replica fedele su carta.

Secondo me dovrai continuare a usare quanto suggerito in un quesito precedente (cioe' questo: viewtopic.php?f=26&t=77363) adattando i suggerimenti alle mutate situazioni.

Oppure ti fai due altre form, ognuna con una pagina di sfondo, e dopo aver compilato la UserForm1 la stampi, poi trasporti attivi e popoli Form2 e Form3 e stampi anche queste due; se serve aiuto per il codice posta ancora. Ma secondo me l' opzione della form inserita come "immagine di sfondo" sul tuo foglio excel e' ancora la piu' semplice nel caso di pagine multiple, vedi viewtopic.php?f=26&t=77363#p439040 .



Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: stampa userform

Postdi daniele677 » 04/01/10 18:47

ciao Anthony e grazie per il suggerimento, tuttavia la procedura indicata richiede tempi lunghi per essere stampata con la mia stampante Hp 1320. Avevo pensato anchi'io di fare una userform per ogni pagina, ecco quindi la mia necessita di poterle stampare in pdf in un unico file, per poi archiviarle.

per i fogli excel ho risolto adattando un codice che allego
in pratica inserendo la stampante pdf del sistema riesco ad avere un unico file in pdf

Private Sub CommandButton1_Click()
Dim arr() As Variant
Sheets(Array("Foglio1", "Foglio2", "Foglio3")).Select
ReDim Preserve arr(x)
x = x + 1
Application.ActivePrinter = "Adobe PDF su Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF su Ne02:", Collate:=True
Sheets("Foglio1").Select
End Sub

per le userform ho solo scritto la macro per selezionare la stampante pdf

Sub stampa()
On Error GoTo Errore
Dim WshNet As Object
Set WshNet = CreateObject("Wscript.Network")
WshNet.SetDefaultPrinter "Adobe PDF" ' Qui cambio la stampante
Set WshNet = Nothing
UserForm1.PrintForm
Errore:
Select Case Err.Number
Case Is = 0
Exit Sub
Case Else
Exit Sub
End Select
End Sub

ma non riesco a stampare piu userform e unirle in un unico file come avviene per i fogli excel
avete qualche soluzione geniale?
daniele677
Utente Junior
 
Post: 16
Iscritto il: 22/12/08 19:11

Re: stampa userform

Postdi Anthony47 » 05/01/10 23:08

Proprio perche' hai risolto le stampe excel e nessuno ha risolto il problema della stampa userform (nemmeno il forum Microsoft...) allora ti conviene tornare ad excel anche per questi tipi di stampa.
O no?

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: stampa userform

Postdi daniele677 » 13/01/10 18:07

salve di nuovo a tutti
forse a qualcuno puo interessare che ho risolto, anche se indirettamente, il problema di stampare in un unico file pdf piu userform contemporaneamente, utilizzando la stampante pdf redirect che unisce i file in uscita.
la macro e la seguente:

Codice: Seleziona tutto
Sub stampa()
On Error GoTo Errore
Dim WshNet As Object
Set WshNet = CreateObject("Wscript.Network")
WshNet.SetDefaultPrinter "PDF REDIRECT V2" ' Qui cambio la stampante
Set WshNet = Nothing
UserForm1.PrintForm
UserForm2.PrintForm
UserForm3.PrintForm

On Error GoTo Errore
'Dim WshNet As Object
Set WshNet = CreateObject("Wscript.Network")
WshNet.SetDefaultPrinter "HP LaserJet 1320 PCL 6" ' Qui rimetto la stampante predefinita
Set WshNet = Nothing
UserForm111.PrintForm ' la userform111 non deve essere presente


Errore:
Select Case Err.Number
Case Is = 0
Exit Sub
Case Else
Exit Sub
End Select
End Sub

alla prossima
daniele677
Utente Junior
 
Post: 16
Iscritto il: 22/12/08 19:11

Re: stampa userform

Postdi Flash30005 » 14/01/10 00:49

Ok grazie Daniele a nome di tutti coloro che utilizzeranno la tua soluzione

A presto

Ciao


P.s. e' opportuno inserire i codici delle macro nel box appositamente creato con il pulsante dell'editor chiamato "CODE" per evitare che
Codice: Seleziona tutto
8)
diventi 8)
e anche per facilitare la copia dell'intero codice
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "stampa userform":


Chi c’è in linea

Visitano il forum: Nessuno e 83 ospiti