Problema con stampa bordi celle

Question

No notato un comportamento anomalo in Excel 2007 ( Windows 7 professional 64 bit) e non so a cosa attribuirlo.

Da un pulsante su una scheda "MENU" richiamo un'altra scheda "TABELLA" ponendo il seguente codice in un modulo

Sub GestisciTabelle()

Sheets("TABELLE").Visible = True

' se la sub finisce qui

' occorre naturalmente passare manualmente alla scheda TABELLE

' ma si ha successivamente la stampa dei bordi

' se invece si aggiunge una delle seguenti righe atta a visualizzare automaticamente la scheda TABELLE

' la stampa è eseguita senza i senza bordi delle celle

' Worksheets("TABELLE").Activate

' o

' Worksheets("TABELLE").Selected

End Sub

se stampo la tabella su una stampante HP Laserjet 5si questa mi viene stampata senza i bordi, mentre se la stampo su un file pdf i bordi vengono correttamente riportati.

Se poi copio la scheda "TABELLA" su un'altra scheda "TABELLE (2)" con il comando Copia e sposta e provo a stampare la nuova scheda così copiata la stampa ha luogo normalmente con i bordi assegnati.

Non riesco a capire il motivo di tale comportamento.

Sono pronto ad inviare il file, ma mi sembra che questo non sia consentito nella community.

Grazie per le risposte.

Answer 1

Ciao petroso47,

il link del file è

http://1drv.ms/1IeH04Y

Ho scaricato il  file.

Per quanto riguarda lo stampaggio del foglio Tabelle, ho fatto 4 prove:

(1) Ho eseguito la tua macro GestisciTabelle per scoprire il foglio, utilizzando solo l'istruzione 

             Sheets("TABELLE").Visible = True

(2) Ho eseguito la tua macro GestisciTabelle per scoprire il foglio, utilizzando le due istruzioni

              Sheets("TABELLE").Visible = True

              Worksheets("TABELLE").Activate

(3) Ho eseguito la tua macro GestisciTabelle per scoprire il foglio, utilizzando le due istruzioni

              Sheets("TABELLE").Visible = True

              Worksheets("TABELLE").Select          ' \Nota l'uso di Select anziché la tua Selected

(4) Dato che non è necessario attivare o selezionare un foglio (è sufficiente a rendere visibile il foglio)

     per stamparlo, Ho quindi utilizzato il nuovo codice seguente:

'=========>>

Public Sub Tester()

    Dim SH As Worksheet

    Set SH = ThisWorkbook.Sheets("Tabelle")

    With SH

        .Visible = xlSheetVisible

        .PrintOut

    End With

End Sub

'<<=========

Purtroppo, non ho potuto replicare il problema: in tutti e quattro casi, il foglio Tabelle è stato stampato con i bordi voluti.

Sei sicuro che stai utilizzando la stessa stampante? In caso contrario, prova a scaricare un driver aggiornato per la stampante problematica.

Sei sicuro che la stampa problematica non è stata eseguita utilizzando l`impostazione bozza/stampa rapida (draft) della stampante? 

===

Regards,

Norman

Answer 2

La ringrazio per la risposta.

Se il problema non si pone sul suo computer, sarà qualche problema del mio o della stampante.

Seguendo il suo suggerimento proverò appena posso con una altra stampante e sul computer di qualche amico.

Ho notato proseguendo le prove che se inspessisco i bordi questi vengono stampati.

Sembra quindi che non sono stampate le linee sottili ma sono stampate quelle spesse.

Le farò sapere, per ora la ringrazio ancora una volta per l'interessamento.

Answer 3

il link del file è

http://1drv.ms/1IeH04Y

Grazie

Answer 4

Ciao petroso47,

Sono pronto ad inviare il file, ma mi sembra che questo non sia consentito nella community.

Per condividere il file, vedi:

                   **http://is.gd/snGUFN**

===

Regards,

Norman