Jag vill visa PrintPreview i stället för Print när jag skriver ut. Men koden nedan avbryter ju även printpriview. Finns det något sätt att gå runt det? Se om denna artikel kan hjälpa dig, http://www.devx.com/getHelpOn/10MinuteSolution/18219 Jag håller på med "hemsk" vb-macroprogrammering i Excel... Antagligen något av det ondaste som Microsoft hittat på... Så nej artiklen hjälpte inte :( Något i den här stilen skulle kunna funka:PrintPreview i stället för Print
<code>
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel=true
PrintPreview
End Sub
</code>Sv: PrintPreview i stället för Print
Sv:PrintPreview i stället för Print
Sv: PrintPreview i stället för Print
<code>
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Static InPrintPreview As Boolean
if Not InPrintPreview then
Cancel=true
InPrintPreview = true
PrintPreview
InPrintPreview = false
end if
End Sub
</code>
Det känns dock som att det är väldigt skakig kod...