අන්තර්ගත වගුව
අපට අපගේ Excel වැඩ පත්රිකාවේ අභිරුචි මුද්රණ බොත්තමක් සැකසිය හැකි නම්, එය ඉතා පරිශීලක-හිතකාමී සහ මුද්රණ පත්ර සඳහා කාලය ඉතිරි කර ගත හැක. VBA Macros භාවිතා කිරීමෙන්, අපට එය පහසුවෙන් කළ හැක. එබැවින් මෙම ලිපිය ඔබට Excel හි මුද්රණ බොත්තම සඳහා VBA කේතය භාවිතා කිරීමට සරල මැක්රෝ 5ක් ලබා දෙනු ඇත.
ප්රායෝගික වැඩපොත බාගන්න
ඔබට හැකිය මෙතැනින් නොමිලේ Excel අච්චුව බාගත කර ඔබම පුහුණු වන්න.
මුද්රණ බොත්තම සෑදීමට VBA කේතය.xlsm
5 VBA භාවිතා කිරීමට උදාහරණ Excel හි මුද්රණ බොත්තම සඳහා කේතය
විවිධ විකිණුම්කරුගේ විවිධ ප්රදේශ හි විකුණුම් නියෝජනය කරන අපගේ දත්ත කට්ටලයට මුලින්ම හඳුන්වා දෙමු.
1. Excel හි මුද්රණ සංවාද කොටුව සඳහා මුද්රණ බොත්තම සෑදීමට VBA කේතය භාවිතා කරන්න
පළමුව, අපි මුද්රණ බොත්තම නිර්මාණය කර පසුව ඒ සඳහා කේත ලියන්නෙමු.
පියවර:
- පහත පරිදි ක්ලික් කරන්න: සංවර්ධක >> ඇතුළු කරන්න >> බොත්තම් පෙට්ටිය.
ඉක්මනින්, ඔබට කර්සරය තුළ ප්ලස් ලකුණ (+) ලැබේ.
0>- ඔබට අවශ්ය බොත්තම් ප්රමාණයට අනුව එම කර්සරය අදින්න සහ ටික වේලාවකට පසු සංවාද කොටුව නමින් මැක්රෝ පැවරීම විවෘත වනු ඇත.
3>
- නම සහ New ඔබන්න.
VBA කවුළුවක් දිස්වේ.
- ඉන්පසු ටයිප් කරන්න එහි පහත කේතයන්-
8047
- දැන් ආපසු යන්න ඔබේ වෙත පත්රය .
කේත බිඳවැටීම
- මෙහි , මම උප ක්රියා පටිපාටියක්, DialogBox නිර්මාණය කළෙමි.
- ඉන්පසු Dialogs (xlDialogPrint).Show විවෘත කිරීමට මුද්රණ සංවාද කොටුව .
බොත්තම සාදා ඇත.
- දකුණු-ක්ලික් කරන්න බොත්තම මත > සහ බොත්තම් නම වෙනස් කිරීමට සන්දර්භය මෙනුව වෙතින් පෙළ සංස්කරණය කරන්න තෝරන්න.
- පසුව, යන්තම් ටයිප් කර නම සහ ක්ලික් කරන්න ඔබේ මූසිකය ඕනෑම තැනක බොත්තමෙන් පිටත .
ඉන්පසු බොත්තම ඔබන්න.
එවිට ඔබට මුද්රණ සංවාද කොටුව ලැබේවි. ඔබට අවශ්ය නම් ඔබට එය දැන් මුද්රණය කළ හැක.
ඔබට මේ මොහොතේ මුද්රණ යන්ත්රයක් නොමැති නම් ඔබට එය සුරකින්න හැක. 1>PDF . වැඩිදුර භාවිතය සඳහා හෝ පසුව මුද්රණය කිරීමට .
- දැන් හරි ඔබන්න.
- මේ මොහොතේ නම දී සුරකින්න ඔබන්න.
මෙන්න මුද්රිත PDF .
වැඩිදුර කියවන්න: Excel හි මුද්රණ සැකසුම් සකසන ආකාරය (සුදුසු උපක්රම 8)
2. සක්රිය පත්රය සඳහා මුද්රණ බොත්තම සෑදීමට VBA කේතය භාවිත කරන්න
මෙහි, අපි මුද්රණය කිරීමට ක්රියාකාරී <1 VBA භාවිත කරන්නෙමු>පත්රය .
පියවර:
- පළමු කොටසේ සිට පළමු පියවර දෙක අනුගමනය කරන්න >බොත්තම සහ මැක්රෝ එකක් පවරන්න .
- මැක්රෝ නාමයක් ලියා ඔබන්න නව .
ඉක්මනින්, VBA කවුළුවක් විවෘත වේ.
- ඉන්පසු ලියන්න පහත කේත එහි-
8448
- පසුව, ආපසු යන්න වෙත 14>
- මෙහි, මම උප ක්රියාපටිපාටියක් සෑදුවෙමි , ActiveSheet .
- ඉන්පසු PrintOut සක්රීය පත්රය තේරීමට සහ මුද්රණය කරන්න .
- දැන් බොත්තම ඔබන්න.
- නම දී සුරකින්න ඔබන්න .
- මුල් පිටුව ගොනුව පසින් ක්ලික් කරන්න <13
- ඉන්පසු මුද්රණය විකල්පය තෝරා තේරීමට ඩ්රොප් ඩවුන් මත ක්ලික් කරන්න a මුද්රණ යන්ත්රය .
- පළමු කොටසේ සිට පළමු පියවර දෙක අනුගමනය කරන්න බොත්තම සහ පවරන්න සාර්ව .
- ඉන්පසු මැක්රෝ නමක් ලියා නව ඔබන්න.<13
- පසුව, ටයිප් කරන්න පහත කේත එහි-
කේත බිඳවැටීම
A සංවාද කොටුව නම් කරන ලද මුද්රණ ප්රතිදානය සුරකින්න ලෙස විවෘත වේ.
එවිට ඔබට මුද්රිත PDF ලැබෙනු ඇත.
ඔබට හැකිය ඔබට එය අවශ්ය නම් මුද්රණ යන්ත්රය පහසුවෙන් වෙනස් කරන්න.
තවත් කියවන්න: Excel හි සියලුම පත්ර මුද්රණය කරන්නේ කෙසේද (ක්රම 3)
3. Excel හි තෝරාගත් පත්ර සඳහා මුද්රණ බොත්තම සෑදීමට VBA කේතය යොදන්න
ඔබට මුද්රණය කිරීමට විශේෂිත තෝරාගත් පත්ර අවශ්ය නම් එය භාවිතයෙන්ද කළ හැක. VBA .
පියවර:
ඉක්මනින්, VBA කවුළුවක් විවෘත වේ.
7701
ඉන්පසු ආපසු යන්න ඔබේ පත්රය .
කේත බිඳවැටීම
- මෙහි, මම උප ක්රියා පටිපාටියක්, තෝරාගත් පත්රිකා නිර්මාණය කළෙමි.
- ඉන්පසු ActiveWindow සිට <1 දක්වා භාවිත කළා. ක්රියාකාරී Excel කවුළුව වෙතින් පත්රය තෝරන්න.
- ඊළඟට, බහු තෝරාගත් මුද්රණය කිරීමට PrintOut භාවිත කළා පත්ර .
- දැන් පත්ර තෝරා මුද්රණ බොත්තම ඔබන්න. මම පත්ර දෙකක් තෝරා ගත්තා.
3>
- PDF සඳහා නම දී සුරකින්න ඔබන්න .
PDF ගොනුවෙහි පත්ර දෙක සඳහා t wo පිටු ඇත>.
වැඩිදුර කියවන්න: Excel හි VBA Macro භාවිතයෙන් විශේෂිත පත්ර මුද්රණය කරන්නේ කෙසේද (මාර්ග 4)
සමාන කියවීම්:
- A4 ප්රමාණයෙන් Excel ෂීට් මුද්රණය කරන්නේ කෙසේද (ක්රම 4ක්)
- තබා ගන්නේ කෙසේද මුද්රණය කිරීමේදී Excel හි ශීර්ෂකය (ක්රම 3)
- Excel VBA: මුද්රණ ප්රදේශය ගතිකව සකසන්නේ කෙසේද (මාර්ග 7ක්)
- Excel මුද්රණය කරන්නේ කෙසේද රේඛා සහිත පත්රය (පහසු ක්රම 3ක්)
- Excel හි ප්රස්තාරය මුද්රණය කරන්නේ කෙසේද (විධි 5ක්)
4. තෝරාගත් පරාසයක් සහිත විශේෂිත පත්රය සඳහා මුද්රණ බොත්තම සෑදීමට Excel VBA කාවැද්දන්න
මෙහි, අපි මුද්රණ බොත්තම සිට මුද්රණය දක්වා තෝරාගත් එකක් කරන්නෙමු. පරාසය විශේෂිත පත්රයකින් .
පියවර:
- පළමුව අනුගමනය කරන්න පළමු කොටසේ සිට පියවර දෙකකින් බොත්තම සාදා මැක්රෝ එකක් පවරන්න.
- මැක්රෝ නාමයක් ලියා නව ඔබන්න .
ඉක්මනින්, VBA කවුළුවක් විවෘත වේ.
- ඉන්පසු ලියන්න පහත කේත –
2778
- පසුව, ඔබේ පත්රය වෙත ආපසු යන්න.
කේත බිඳවැටීම
- මෙහි, මම උප ක්රියා පටිපාටියක්, SpecificSheetnRange නිර්මාණය කළෙමි.
- ඉන්පසු a විශේෂිත
- ඊළඟට, PrintArea = “B2:D11”.PrintOut<2 තේරීමට ප්රකාශය සමඟ > විශේෂිත පත්රයෙන් පරාසය තෝරා තේරී එය මුද්රණය කරයි .
- දැන් මුද්රණ බොත්තම ඔබන්න.
- නම සකසන්න PDF සහ සුරකින්න ඔබන්න.
එය මුද්රිත නිශ්චිත පත්රයයි.
තවත් කියවන්න: Excel VBA: බහු පරාසයන් සඳහා මුද්රණ ප්රදේශය සකසන්න (උදාහරණ 5)
5. තෝරාගත් පරාසයක් සහිත සක්රීය පත්රය සඳහා මුද්රණ බොත්තම සෑදීමට Excel VBA කාවද්දන්න
එමෙන්ම, ඔබට ක්රියාකාරී පත්රයෙන් පරාසයක් තේරිය හැක සහ සෑදිය හැක 1>මුද්රණ බොත්තම මුද්රණය කිරීමට එය VBA භාවිතයෙන්.
පියවර:
- අනුගමනය කරන්න පළමු කොටසේ සිට පළමු පියවර දෙකට බොත්තම සාදා මැක්රෝ ක් පවරන්න.
- පසුව, මැක්රෝ නාමයක් ලියන්න සහ නව ඔබන්න.
ඉක්මනින්, VBA කවුළුව විවෘත වනු ඇත.
- VBA කවුළුවෙහි, පහත කේත – <14 ලියන්න>
3325
- ඉන්පසු ආපසු යන්න ඔබේ පත්රය .
කේත බිඳවැටීම
- මෙහි, මම උප ක්රියා පටිපාටියක්, ActiveSheetnRange නිර්මාණය කළෙමි.
- ඉන්පසු <1 භාවිත කළා>පරාසය(“B2:D11”).මුද්රණය කරන්න තේරීම සඳහා a පරාසය සහ මුද්රණය කරන්න.
- මුද්රණ බොත්තම ඔබන්න.
- නම දී සුරකින්න<2 ඔබන්න>.
එවිට ඔබට මුද්රිත පරාසය ලැබේ.
තවත් කියවන්න: විශේෂිත පත්ර මුද්රණය කිරීමට Excel බොත්තම (පහසු පියවර සමඟ)
නිගමනය
ඉහත විස්තර කර ඇති ක්රියා පටිපාටි මම බලාපොරොත්තු වෙමි Excel හි මුද්රණ බොත්තම සඳහා VBA කේතය භාවිතා කිරීමට ප්රමාණවත් වේ. අදහස් දැක්වීමේ කොටසේ ඕනෑම ප්රශ්නයක් ඇසීමට නිදහස් වන්න සහ කරුණාකර මට ප්රතිපෝෂණ ලබා දෙන්න.