Feuilles cachées

Bonjour Major,
Montrer / cacher encadré d'application.screenupdating successivement à false
et à true me semble la solution la plus simple.
--
Avec plaisir
Philippe.R
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news:OnCyTHU8HHA.1208@TK2MSFTNGP03.phx.gbl...

Bonjour à toutes et tous

Y a-til moyen d'imprimer une feuille cachée?

J'explique

D'une feuille "Tracking_Orders", j'ai une macro qui fait un tas de truc
Puis il imprime la feuille "Printing_Offers"
Mais cette feuille est cahée

J'envisage de faire un ShowSheet et après un HideSheet

A moins que quelqu'un a une idée


A bientôt

Rex ;-))) )))


Voici le bout de code actuel

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

' '''' Ici je vais insérer le showsheet

Dim MonNomdeFichier As String
MonNomdeFichier = Range("C4").Value
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = _
"C:AA-Rex-DataSalesPDFOrder-confirmation-to EU" &
Application.PathSeparator
.cOption("AutosaveFilename") = MonNomdeFichier
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False

Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
' '''' et ici je vais insérer le hidesheet
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

C'est ce que je crois aussi
Mais on ne sais jamais

Il y a peut-être un génie qui va trouver autre chose

A bientôt

Et merci

Rex ;-))) )))


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
uWegMKU8HHA.464@TK2MSFTNGP02.phx.gbl...

Bonjour Major,
Montrer / cacher encadré d'application.screenupdating successivement à
false et à true me semble la solution la plus simple.
--
Avec plaisir
Philippe.R
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news:OnCyTHU8HHA.1208@TK2MSFTNGP03.phx.gbl...

Bonjour à toutes et tous

Y a-til moyen d'imprimer une feuille cachée?

J'explique

D'une feuille "Tracking_Orders", j'ai une macro qui fait un tas de truc
Puis il imprime la feuille "Printing_Offers"
Mais cette feuille est cahée

J'envisage de faire un ShowSheet et après un HideSheet

A moins que quelqu'un a une idée


A bientôt

Rex ;-))) )))


Voici le bout de code actuel

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

' '''' Ici je vais insérer le showsheet

Dim MonNomdeFichier As String
MonNomdeFichier = Range("C4").Value
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = _
"C:AA-Rex-DataSalesPDFOrder-confirmation-to EU" &
Application.PathSeparator
.cOption("AutosaveFilename") = MonNomdeFichier
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False

Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
' '''' et ici je vais insérer le hidesheet
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Re,
Une solution plus compliquée ?
;o)))
--
Avec plaisir
Philippe.R
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news:O7Bj8MU8HHA.2208@TK2MSFTNGP06.phx.gbl...

C'est ce que je crois aussi
Mais on ne sais jamais

Il y a peut-être un génie qui va trouver autre chose

A bientôt

Et merci

Rex ;-))) )))


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
uWegMKU8HHA.464@TK2MSFTNGP02.phx.gbl...

Bonjour Major,
Montrer / cacher encadré d'application.screenupdating successivement à
false et à true me semble la solution la plus simple.
--
Avec plaisir
Philippe.R
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news:OnCyTHU8HHA.1208@TK2MSFTNGP03.phx.gbl...

Bonjour à toutes et tous

Y a-til moyen d'imprimer une feuille cachée?

J'explique

D'une feuille "Tracking_Orders", j'ai une macro qui fait un tas de truc
Puis il imprime la feuille "Printing_Offers"
Mais cette feuille est cahée

J'envisage de faire un ShowSheet et après un HideSheet

A moins que quelqu'un a une idée


A bientôt

Rex ;-))) )))


Voici le bout de code actuel

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

' '''' Ici je vais insérer le showsheet

Dim MonNomdeFichier As String
MonNomdeFichier = Range("C4").Value
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = _
"C:AA-Rex-DataSalesPDFOrder-confirmation-to EU" &
Application.PathSeparator
.cOption("AutosaveFilename") = MonNomdeFichier
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False

Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
' '''' et ici je vais insérer le hidesheet
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Bonjour.
pout une feuille même sans screenupdating false c'est rapide:

With Feuil1
.Visible = True
.PrintOut
.Visible = False
End With

'lSteph

On 7 sep, 13:25, "rthompson" <roubliemoithomp...@softscreen.be> wrote:

Bonjour à toutes et tous

Y a-til moyen d'imprimer une feuille cachée?

J'explique

D'une feuille "Tracking_Orders", j'ai une macro qui fait un tas de truc
Puis il imprime la feuille "Printing_Offers"
Mais cette feuille est cahée

J'envisage de faire un ShowSheet et après un HideSheet

A moins que quelqu'un a une idée

A bientôt

Rex ;-))) )))

Voici le bout de code actuel

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

' '''' Ici je vais insérer le showsheet

Dim MonNomdeFichier As String
MonNomdeFichier = Range("C4").Value
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = _
"C:AA-Rex-DataSalesPDFOrder-confirmation-to EU" &
Application.PathSeparator
.cOption("AutosaveFilename") = MonNomdeFichier
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False

Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
' '''' et ici je vais insérer le hidesheet
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Bonjour LSteph

Et merci

Mais j'ai un truc que j'ai jamaic du faire

Ton WITH sera inséré dans un et même des autres With

Et je ne sais âs comment faire pour qu'ils ne se bloquent pas l'un l'autre
;-((((

Ci-dessous ce que j'ai
Avec en début et en fin de code les Sheet visible true et false

Et ça fonctionne impeccable, mais je suis ici pour apprendre d'autre trucs

D'avance merci et à bientôt

Il est possible que je ne te réponde pas avant demain matin

Rex ;-))) )))


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Ordered()

' the first bit inserts todays date in the Ordered colonne of the Offers
sheet
Sheets("Offers").Cells([A2], 148) = [F4]
' Then we print the info to a pdf file
'We don't want to see what's happening now, do we?
Application.ScreenUpdating = False
' First Show and clean up the Printing_Order sheet
Sheets("Printing_Order").Visible = True
Sheets("Printing_Order").Select
Cells.Select
Selection.Delete Shift:=xlUp
Range("K2").Select
Sheets("Tracking_Orders").Select
' Copy all the info from the Tracking_Orders sheet

Sheets("Tracking_Orders").Select
Range("A1:M192").Select
Selection.Copy
Sheets("Printing_Order").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse

' Clean up up all the unwanted info

Dim plg As Range
' There are two ways to define a multiple range selection
' Set plg = Union(Range("A10"), Range("A48:B48"), Range("A2"),
Range("I12:J13"), Range("A16:C16"), Range("G18:L67"))
Set plg = Range("A10,A48:B48,A16:C16,G18:L67,I4:J4")
With plg
.ClearContents
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlNone
End With

' Hiding the zero lines
' Maintenant que "Offre_Nom" est modifié on s'occupe de masquer/démasquer
les lignes nulles... ou en erreur
For Each C In Range("D2:D185")
If IsError(C.Value) Then ' c peut contenir une erreur
C.EntireRow.Hidden = True
ElseIf C.Value = 0 Then ' mais ce qui t'intéresse c'est une valeur
nulle
C.EntireRow.Hidden = True
Else 'If c.Value = 0 Then ' mais ce qui t'intéresse c'est une
valeur nulle
C.EntireRow.Hidden = False
End If
Next C

' Hiding the unwanted lines
Range("1:3,5:8").Select
Range("A5").Activate
Selection.EntireRow.Hidden = True

' hiding the transaction definition and username
Range("I3:K4").Select
Selection.Interior.ColorIndex = xlNone
Selection.Borders.LineStyle = xlNone
Selection.Font.ColorIndex = 2

' Moving the incoicing info under the res

Range("I9:L15").Select
' ActiveWindow.ScrollColumn = 3
' ActiveWindow.ScrollColumn = 2
' ActiveWindow.ScrollColumn = 1
Selection.Cut Destination:=Range("B187:E193")
' Range("B187:E193").Select


Range("A1").Select

' Now we have to print the info to a order-confirmation PDF for the customer

'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Dim MonNomdeFichier As String
MonNomdeFichier = Range("C4").Value
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = _
"C:AA-Rex-DataSalesPDFOrder-confirmation-to EU" &
Application.PathSeparator
.cOption("AutosaveFilename") = MonNomdeFichier
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False

'Wait until PDF creator is finished then release the objects
Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
Range("E2").Select
Selection.ClearContents

' Go back to the Tracking_Orders Sheet
Sheets("Tracking_Orders").Select
Range("I58").Select

' We need to hid the sheet
Sheets("Printing_Order").Visible = False

' We need to re-activate the screen
Application.ScreenUpdating = True
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de news:
1189166706.065656.91020@22g2000hsm.googlegroups.com...
Bonjour.
pout une feuille même sans screenupdating false c'est rapide:

With Feuil1
.Visible = True
.PrintOut
.Visible = False
End With

'lSteph

On 7 sep, 13:25, "rthompson" <roubliemoithomp...@softscreen.be> wrote:

Bonjour à toutes et tous

Y a-til moyen d'imprimer une feuille cachée?

J'explique

D'une feuille "Tracking_Orders", j'ai une macro qui fait un tas de truc
Puis il imprime la feuille "Printing_Offers"
Mais cette feuille est cahée

J'envisage de faire un ShowSheet et après un HideSheet

A moins que quelqu'un a une idée

A bientôt

Rex ;-))) )))

Voici le bout de code actuel

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

' '''' Ici je vais insérer le showsheet

Dim MonNomdeFichier As String
MonNomdeFichier = Range("C4").Value
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = _
"C:AA-Rex-DataSalesPDFOrder-confirmation-to EU" &
Application.PathSeparator
.cOption("AutosaveFilename") = MonNomdeFichier
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False

Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
' '''' et ici je vais insérer le hidesheet
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx