Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Stampa due volte di cui uno con i dati

Ultimo Aggiornamento: 04/03/2018 23:18
Post: 85
Registrato il: 27/04/2005
Utente Junior
Excel 2010
OFFLINE
03/03/2018 17:49

Buon pomeriggio,

alla stampa che funziona presenta un problema che vorrei risolvere con il Vostro gradito aiuto è che mi stampa due volte di cui la prima con i dati e la seconda con il foglio vuoto.
Il codice che ho applicato è:
Dim SelPrint As Boolean
If ComboBox1 = "" Then Exit Sub
Worksheets(ComboBox1.Value).Select
ActiveSheet.PageSetup.PrintArea = "$H$4:$P$11"
Application.Dialogs(xlDialogPrint).Show
ActiveSheet.PageSetup.PaperSize = xlPaperA4
ActiveWindow.SelectedSheets.PrintOut , Collate:=True, _
IgnorePrintAreas:=False
Fiducioso, ringrazio.
Post: 662
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
OFFLINE
03/03/2018 21:44

Senza un file d'esempio per valutare la larghezza delle colonne ed il tipo di dati inseriti è impossibile valutare il problema.
Se vuoi, tiro a caso nel mucchio, inserisci dopo la riga:
ActiveSheet.PageSetup.PaperSize = xlPaperA4
queste altre due:
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
Post: 85
Registrato il: 27/04/2005
Utente Junior
Excel 2010
OFFLINE
03/03/2018 22:55

Buonasera Rollis13,

ringrazio e scusa per il ritardo. Dalle prove fatte e suggerite, mi stampa sempre due volte anche inserendo un'altro pulsante.

Invio il file augurando che ci riesco.
Cordialmente saluto.
Post: 663
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
OFFLINE
03/03/2018 23:32

Riprova con più calma e vedrai che le due righe che ti ho suggerito sono risolutive per il tuo problema.
Nel valutare tieni conto che i due pulsanti Anteprima Stampa e CommandButton1 non formattano la pagina di stampa.

In ogni caso, con la stampa a dimensione reale, ti rimangono fuori solo 2 colonne e se riduci a 0 anche il margine destro quasi ci sei.
Oltre al margine puoi solo razionalizzare al meglio la larghezza delle colonne.

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
Post: 86
Registrato il: 27/04/2005
Utente Junior
Excel 2010
OFFLINE
04/03/2018 09:48

Buongiorno Rollis13,

anche diminuendo l'area di stampa, continua a stampare due volte.

Sembra di aver risolto il problema inserendo la spunta sulla finestra di dialogo della stampante su "Stampa su File" e mi stampa una sola copia.
Inserendo la spunta, mi si apre una ulteriore finestra per il salvataggio con l'esternsione .prn che normalmente annullo. Ci sarebbe un codice da inserire al pulsante affinchè non si apre la finestra di salvataggio?

Se annullo dal dialogo della stampante, mi stampa regolarmente, si potrebbe inserire un MSGBOX Stampa annullata?.
Ho provato senza riuscire.

Chiedo scusa se approfitto della gentilezza, saluto.
Post: 664
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
OFFLINE
04/03/2018 23:18

Mi vien da pensare che il file che hai allegato non sia quello che hai in uso.
In ogni caso non vedo il motivo di tirare su un palco quando basta una semplice sedia (se ben utilizzata).

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 05:46. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com