Бүгінгі мақалада біз сізге Word құжатын фонның түсі мен кескінінсіз басып шығарудың 3 ақылды әдісін көрсетуге шешім қабылдадық.
Дұрыс және жағымды фон түсі немесе сурет құжатты көз тартарлық етуі мүмкін. Сондықтан, қазір және кейін, сіз эстетикалық мақсатта құжатыңыз үшін өң түсін немесе суретін қоятын шығарсыз.
Олай болса, құжатты фондық түсі немесе кескіні жоқ басып шығаруды қалайтын кездер болуы мүмкін.
- Біріншіден, сіз сияңызды үнемдеп, үнемді бола аласыз.
- Екіншіден, жоғарыда айтылғандай, фонның түсі тек оқырманның көңілінен шығатындай. Осылайша, бұл құжат мазмұнына әсер етпейді.
- Үшіншіден, фонда кейбір қосымша сөздер оңай шатасуы мүмкін.

Мұндай сценарийде өңі немесе суреті жоқ құжат жақсы таңдау болады. Бұған қол жеткізу үшін сіз келесі әдістерді қолданып көріңіз:
1-әдіс: «Сөз опцияларын» өзгерту
- Ең алдымен, Word бағдарламасындағы «Файл» қойындысын нұқыңыз.
- Әрі қарай «Параметрлер» батырмасын басып, «Сөз параметрлері» жолын ашыңыз.
- Сол жақтағы «Көрсету» батырмасын басыңыз.
- Содан кейін оң жақта «Басып шығару параметрлері» бөлімінде «Фонның түстерін немесе кескіндерін басып шығару» жолын алып тастаңыз.
- Соңында «OK» батырмасын басыңыз.
2-әдіс: VBA арқылы фондық түссіз құжатты басып шығару
- Ең алдымен, Word бағдарламасындағы VBA редакторын «Alt+F11» пернелер тіркесімін басу арқылы іске қосыңыз.
- Содан кейін сол жақта «Қалыпты» батырмасын басыңыз.
- Содан кейін «Кірістіру» батырмасын басыңыз.
- Ашылмалы мәзірден «Модуль» таңдаңыз.
- Екі рет басу арқылы модульді ашыңыз.
- Енді осы кодтарды кодтау аймағына қойыңыз:
Sub PrintOneDocWithoutBackgroundColor()
Dim objDoc As Document
Dim nBackgroundFill As Boolean
Set objDoc = ActiveDocument
With objDoc
' Save the current page color.
nBackgroundFill = .Background.Fill.Visible
' Hide the page color from printing.
.Background.Fill.Visible = msoFalse
End With
Dialogs(wdDialogFilePrint).Show
With objDoc
' Restore the page color to original setting on screen.
.Background.Fill.Visible = nBackgroundFill
End With
End Sub
- Соңғысы, бірақ ең азы емес, «Іске қосу» түймесін басыңыз.
Бұл макро құжатқа фонның түсі мен кескінінсіз басып шығаруға мүмкіндік береді. Сонымен бірге компьютердегі құжаттың өңдік түсі немесе кескіні бүтін болуы керек.
3-әдіс: VBA арқылы фондық түссіз бірнеше құжаттарды басып шығару
Бұл макро құжаттың партиясын фондық түссіз басып шығаруға бағытталған.
- Алдымен, барлық мақсатты құжаттарды бір қалтаға орналастырудан бастаңыз.
- Содан кейін 2-әдіс бойынша макросты орнатыңыз және іске қосыңыз.
- Тек осы уақытта макросты келесіге ауыстырыңыз:
Sub PrintMultiDocWithoutBackgroundColor()
Dim StrFolder As String
Dim strFile As String
Dim objDoc As Document
Dim dlgFile As FileDialog
Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
With dlgFile
If .Show = -1 Then
StrFolder = .SelectedItems(1) & "\"
Else
MsgBox "No folder is selected! Please select the target folder."
Exit Sub
End If
End With
strFile = Dir(StrFolder & "*.docx", vbNormal)
While strFile <> ""
Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
Set objDoc = ActiveDocument
With objDoc
.Background.Fill.Visible = msoFalse
.PrintOut
.Close SaveChanges:=wdDoNotSaveChanges
End With
strFile = Dir()
Wend
End Sub
Макрос «Шолу» терезесін ашады. Барлық құжаттар бар қалтаны таңдап, «ОК» батырмасын басыңыз.
Сол сияқты, құжаттың сандық нұсқасына өзгеріс енгізілмейді.
Сөз құжатыңызға көз салыңыз
Бірқатар құжаттарды компьютерде сақтау әдеттегі және ақылға қонымды. Уақыт өткен сайын құжаттар ескіріп, ұмытып кетеді. Сонымен, бір күні белгілі бір құжатты іздеуге барғанда, оны тек қол жетімсіз деп тапасыз. Мұндай көңілсіздік бәрімізге жек көретін нәрсе. Алайда деректерді алудың жалғыз әдісі - жөндеу құралын пайдалану құжатты түзету. Сондықтан, бәрі кеш болмай тұрып, мүмкіндігінше тезірек алыңыз.
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. Excel түзету және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com


