Fråga : Överträffa deg som föreställer printing formar sjunkit för att inte skriva ut.

Hälsningexperter, förmiddag för

I är pröva till…, ”Paste/As föreställer/kopierar som visad Picture/As, när de skrivs ut” ..... en portion av en täcka som innehåller båda datakolonner, och formar.  Jag önskar inte formar för att skriva ut och har sjunkit formar i formens rekvisitafönstret för att inte skriva ut, yet, när I ”Paste/As föreställer/, kopierar som visad Picture/As, när de skrivs ut”….,forma skrivs också ut.  Är deras VBA kodifierar att förhindra detta?   Jag har fäst en sample.

Thanks för hjälpen!     Attachments: för >
<-/div> filenamen " för class= för >Copy-as-Shown-printed.xlsm " fileSize " > (21 KB) " javascript för href= " för <-/span> <-/div>
för >
<-/div> " klar "

Svar : Överträffa deg som föreställer printing formar sjunkit för att inte skriva ut.

Hälsningar biker9,

när du använder CopyPicture, du kopierar avbilda, som den visas på avskärma. Tryckinställningarna för forma ignoreras. Det är den snarlika något liknande som tar en screenshot, inte något liknande som överför spänna till skrivaren (i vilket fall forma skulle för att inte skrivas ut).

Som en lösning du kan uppsättningen påfyllningen och att gränsa av forma till msoFalse, innan du kopierar spänna (som en spänna eller en föreställa) och därefter, efter kopierafunktionen, återställande påfyllningen och har gränsat (med msoTrue)

Fäste kodifierar snippetarbeten på ditt exempel.

jubel teylyn
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

UnderPrint_as_Pic ()
',
    Med ActiveSheet.Shapes.Range (samling (”rektangel 11”))
        . Fill.Visible = msoFalse
        . Line.Visible = msoFalse
    Avsluta med
    Spänna (”B2: F22”). Kopiera spänner (”J2”)
    Med ActiveSheet.Shapes.Range (samling (”rektangel 11”))
        . Fill.Visible = msoTrue
        . Line.Visible = msoTrue
    Avsluta med
    Spänna (”P4”). Välj

Avsluta suben
Andra lösningar  
 
programming4us programming4us