Word, Visual FoxPro gelen OLE otomasyonunu kullanarak çift yönlü yazdırmayı nasıl

Makale çevirileri Makale çevirileri
Makale numarası: 194306 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

Bu makalede, Microsoft Word for Windows 97 için OLE otomasyonunu Visual FoxPro gelen bir belgeyi çift yönlü yazdırma için nasıl kullanılacağı açıklanır.

Daha fazla bilgi

Çift yönlü yazdırmayı ayarlar iletişim kutusunda <a0>Yazıcı</a0> kurulumunun bir parçası olduğundan, değil, belge yazdırma çift yönlü neden olan, yayımlayabilir, doğrudan komut. Ancak, belge çift yönlü yazdırma olanak tanıyan çalışmıyor, üç yolu vardır.

Bu sınamada kullanılan yazıcı çift yönlü yazdırmayı destekleyen bir Hewlett-Packard LaserJet yazıcıdır.

Yöntem 1

Word PRINT alanı, yazıcının çift yönlü modda koyduğu yazıcı çıkış kodu göndermek için kullanın. Aşağıdaki kod, bu gösterir:
   oWord=CREATEOBJECT("Word.Application")
   WITH oWord
      .Visible=.T.
      .Documents.Add

      .Activewindow.View.ShowFieldCodes=0   && Don't view field codes.
      * Insert PRINT field & Hewlett-Packard escape code for duplex, long-
      * edge binding.
      * It is an ampersand, lower-case L, numeric 1, and upper-case S.
      .Selection.Fields.Add(.Selection.Range,-1,"PRINT 27 &l1S")
      .Selection.Moveright

      .Selection.Insertafter("Page 1")
      .Selection.Moveright

      odlog=oWord.Dialogs(159) && Insert page break w/ Dialogs collection.
      odlog.Execute

      .Selection.Insertafter("Page 2")
      .Selection.Moveright

      .Printout(0)                   && 0 turns off background printing.

      .Application.Quit(0)           && Quit, don't save & don't prompt.
   ENDWITH
				
Word belgesine dikey ve yatay bölümleri olan karışık yönde içeriyorsa, bu kod çalışmaz.

Not Bu kod, yalnızca birlikte Service Release-1 (SR-1) için Word 97 çalışır. Word 97'ün önceki sürümlerinde, bu kodu kullanarak değil, çift yönlü yazdırma yapın.

Düzgün yazdırmak Word belge için bu üstbilgi ve altbilgi her sayfada içermemelidir. Ancak, belge için farklı bir Kur ise çift yönlü yazdırma ilk sayfa üstbilgisi veya altbilgisi, yalnızca, PRINT alanını eklendiğinde başı tarafından izlenen başlığının ilk satırında.

Yöntem 2

<a0>Yazdır</a0> iletişim kutusunu açmak için tuş vuruşlarını kullanarak taklit eden Word tuş vuruşlarını göndermek için TuşGönder komutunu seçin.
   oWord=CREATEOBJECT("Word.Application")
   WITH oWord
      .Visible=.T.
      .Documents.Add

      * This code creates a two page document to print.
      .Selection.Insertafter("Page 1 - With SendKeys")
      .Selection.Moveright
      odlog=oWord.Dialogs(159) && Insert page break w/ Dialogs collection.
      odlog.Execute
      .Selection.Insertafter("Page 2 - With SendKeys")
      .Selection.Moveright
      * End of document creation.

      .Application.Activate
      .Wordbasic.Sendkeys("%fp%p%d{enter}{tab}{enter}", -1)
      =INKEY(2)   && May need to wait couple seconds before quitting.
      .Application.Quit(0)           && Quit, don't save & don't prompt.
   ENDWITH
				
Sendkeys komutu % oturum Windows menüleri erişmek için ALT tuşunu kullanarak temsil eder. INKEY() komut Windows için Visual FoxPro çıkış işler için önce tuş vuruşlarının işlemek Word sağlar. Yukarı, aşağı veya uygulamaya bağlı kaldırılan ayarlanması gerekebilir.

Sendkeys kullanmak için <a0></a0>, Word bu yana, tuş vuruşlarının etkin bir penceresine gitmeniz gerekir, simge yok görünür olmalıdır. Word, Word gösteriyor mu değil, ancak yine de, iletişim kutusu görüntüler böylece AppMove komutu kullanılarak ekran dışına taşıyabilirsiniz. Menüler ve iletişim kutuları da açın ve Word içinde olduğunuz ve Dosya menüsünü açmak için ALT + F tuşlarına basıldı gibi işlem için Ayrıca, Sendkeys disconcerting olabilir.

Yöntem 3

Sendkeys veren Word bir makro oluşturun. Makro SendKey olarak adlandırılmışsa, makroyu Visual FoxPro aşağıdaki komutu çalıştırın:
     oWord=CREATEOBJECT("Word.Application")
       WITH oWord
       .Visible=.T.
       .Documents.Add
       .Application.Activate
       .Run("SendKey")
       .Application.Quit(0)           && Quit, don't save & don't prompt.
    ENDWITH
				
en düşük çift yönlü yazdırma tuşları göndermek Word makro kodunu aşağıdaki gibidir:
   Sub SendKey()
      SendKeys "%fp%p%d{enter}{tab}{enter}"
   End Sub
				
Not SendKeys kullanarak karşılaşabileceğiniz sorunlar için lütfen yöntem 2'deki Not bakın.

Referanslar

Daha fazla bilgi için, Microsoft Bilgi Bankası'ndaki makaleleri görüntülemek üzere aşağıdaki makale numaralarını tıklatın:
135569PRINT alanı ile kullanmak için PCL çıkış kodları
Word for Windows 97 Service Release 1'i edinme hakkında ek bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
172475Nasıl elde edilir ve MS Office 97 SR-1 yükleyin.
Microsoft Word, Visual Basic Yardımı

(c) Microsoft Corporation 1998. Tüm Hakları Saklıdır. Katkıyı Deniz Christopher, Microsoft Corporation.

Özellikler

Makale numarası: 194306 - Last Review: 27 Ocak 2005 Perşembe - Gözden geçirme: 2.2
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Visual FoxPro 5.0a
  • Microsoft Visual FoxPro 6.0 Professional Edition
Anahtar Kelimeler: 
kbmt kbcode kbhowto KB194306 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:194306

Geri Bildirim Ver

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com